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Votc.h 



/* 

* file: tc_v2.h 

* date: April 12, 2000 

* function: tests turbo codes 

* Modulation: QAM 

* Decoder: MAP algorithm 
***************************************** 

*/ 

#include <math.h> 
#include <stdio.h> 
#include <malloc.h> 
#include <dos.h> 



/* Definition of the first recursive systematic code (RSC1) : 
#define RSC1_ENC_MEM 4 /* encoder memory order 

#define RSC1_STATES {1 « RSC1_ENC_MEM) 

#define RSC1_FP 035 /* forward polynomial in octal 

#define RSC1_BP 023 /* backward polynomial in octal 



/* Definition of the second recursive systematic code (RSC2) 



#def ine 


RSC2_ENC_MEM 


4 


/* 


encoder memory order 


*/ 


#def ine 


RSC2_STATES 


( 1 « RSC2 ENC 


MEM) 






#def ine 


RSC2_FP 


035 


/* 


forward polynomial in octal 


*/ 


#define 


RSC2_BP 


023 


/* 


backward polynomial in octal 


*/ 


#define 


NR ITER 


8 


/* 


nr. of iterative decoding stages 


*/ 


#def ine 


EBNO 


6.0 


/* 


Eb/No in dB 


*/ 


#def ine 


MAX_ERRORS 


1000 


/* 


stop when this nr. is reached 


*/ 


#def ine 


INT_SIZE 


6144 


/* 


nr. of info bits to be ileaved 


*/ 


#def ine 


MAX 


(exp(31.0) ) 


/* 


limit soft outputs 


*/ 


#define 


E STEPS 


1000 


/* 


number of values for E_val 


*/ 


#define 


PRINT BLOCKS 


100 


/* 


how often to print results 


*/ 


#define 


SEED1 


13733 


/* 


seeds for random nr. gen. 


*/ 


#define 


SEED2 


1935791 








#def ine 


SIGMA_12_4AM 


sqrt (2. 


50 * 


pow(10.0, (-EBNO / 10.0) ) ) /* A «= 1 


0 * 



#define SIGMA_12_16QAM 
#define SIGMA_34_16QAM 

/* For 8AM, 64QAM, 256QAM, 
#define SIGMA_5 6_64QAM 
#define SIGMA_4 6_64QAM 
#define SIGMA_23_8AM 
#define SIGMA_12_8AM 
#define SIGMA_58_256QAM 
#define SIGMA 68 256QAM 



sqrt ( (10.0/6.0) * pow ( 10 . 0 , (-EBNO / 10.0))) 

= 0.5 => A*A = 0.25. Thus, Eav - 5.25*A*A = Eav/4 

sqrt(4.2/4 * pow (10.0, (-EBN0 / 10.0))) 

sqrt (5.25/4 * pow ( 10 . 0, ( -EBNO / 10.0))) 

sqrt (5.25/4 * pow ( 10 . 0, (-EBNO / 10.0))) 

sqrt(7.0/4 * pow ( 10 . 0, (-EBNO / 10.0))) 

sqrt(17.0/4 * pow ( 10 . 0, ( -EBNO / 10.0))) 

sqrt ( (170. 0/12J/4 * pow (10.0, ( -EBNO / 10.0))) 



/* For 
#define 
#def ine 
/* For 
#def ine 
#def ine 
#define 
#define 
#define 
#define 
#def ine 



4 QAM (A = 0.5) :*/ 
SIGMA_24_4QAM sqrt (2 . 0/2 . 0/4 * pow ( 10 . 0, (-EBNO / 10.0))) /* 
SIGMA_26_4QAM sqrt (2 . 0/ (4 . 0/3) /4 * pow ( 10 . 0, ( -EBNO / 10.0))) 
8 QAM (A « 0.5) :*/ 
S I GMA_4 AM_o f_4 6_8 QAM 
S I GMA_2 AM_o f _4 6_8 QAM 
S I GMA_4 AM_o f _2 6_8 QAM 
SIGMA_2AM_of_2 6_8QAM 
S I GMA_4 AM_o f_l 3_8 QAM 
SIGMA 2AM of 13 8 QAM 



1 info */ 
/* 2/3 info 



sqrt (6.0/4.0/4 
sqrt (6.0/4.0/4 
sqrt (6.0/2.0/4 
sqrt (6.0/2.0/4 
sqrt (6.0/2.0/4 
sqrt (6.0/2.0/4 



pow (10.0, (-EBNO / 10.0))) /* 2 

pow (10.0, (-EBNO / 10.0))) /* 2 

pow(10.0, (-EBNO / 10.0))) /* 1 

pow(10.0, (-EBNO / 10.0))) /* 1 

pow(10.0, (-EBNO / 10.0))) /* 1 

pow(10.0, (-EBNO / 10.0))) /* 1 



SIGMA_36_64QAM sqrt ( 42 . 0/6 . 0/4 * pow (10 . 0, ( -EBNO / 10.0))) /* 3 info 



info*/ 
info*/ 
info*/ 
info*/ 
info*/ 
info*/ 
*/ 



/* For 16QAM, 64QAM, 256QAM, 1024QAM (A = 0.5):*/ 

#define SIGMA_412_16QAM sqrt (10 .0/ (8 . 0/3) /l * pow (10 . 0, ( -EBNO / 10.0))) /* 4/3 A«l */ 
#define SIGMA_26_64QAM sqrt ( 42 . 0/4 . 0/4 * pow ( 10 . 0, (-EBNO / 10.0))) /* 2 info */ 
#define SIGMA_824_256QAM sqrt (170 . 0/ (10 . 0/3) /4 * pow (10.0, (-EBNO / 10.0))) /* 10/3*/ 
#define SIGMA_1030_1024QAM sqrt (341. 0/ (10.0/3) /4 * pow ( 10 . 0, (-EBNO / 10.0))) /*10/3 */ 
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/* For 32QAM, 128QAM, 512QAM, (A = 

#define SIGMA_8AM_of_115_32QAM 

#define SIGMA_4AM_of_115_32QAM 

#define S I GMA_1 6AM_o f _7 2 1_1 2 8 QAM 

#define SIGMA_8AM_of_721_128QAM 

#define S I GMA_3 2 AM_o f _3 9_5 1 2 QAM 

#define SIGMA 16AM of 39 512QAM 



- 0.5) :*/ 

sqrt(21. 0/2/4 * pow ( 10 . 0, (-EBNO / 10.0))) /* 1 info */ 
sqrt (5.00/(4/3) /4 * pow (10.0, (-EBNO / 10.0))) /*2/3*/ 
sqrt (85.0/(8/3) /4 * pow ( 10 . 0 , ( -EBNO / 10.0))) /*4/3*/ 
sqrt (21.0/2/4 * pow ( 10 . 0, ( -EBNO / 10.0))) /* 1 info */ 
sqrt (341. 0/4/4*pow ( 10 . 0, (-EBNO / 10.0))) /* 2 info */ 
sqrt (85. 00/2/4*pow ( 10 . 0, (-EBNO / 10.0))) /*■ 1 info */ 



/* For 32QAM (A = 0.5) :*/ 
#define S I GMA_ 8 AM_o f _ 3 2 QAM 
#define SIGMA 4AM of 32QAM 



sqrt (26.0/6/4 * pow ( 10 . 0, (-EBNO / 10.0))) /* 3 info */ 
sqrt (26.0/6/4 * pow (10 . 0, (-EBNO / 10.0))) /* 3 info */ 



/* For R57_128QAM (A = 0.5):* 
#define SIGMA_16AM_of_128QAM 
#define SIGMA 8AM of 128QAM 



sqrt (106.0/10/4 * pow{10. 0, (-EBNO. / 10.0))) /* 3 info */ 
sqrt (106.0/10/4 * pow(10 . 0, {-EBNO / 10.0))) /* 2 info */ 



/* For R69_512QAM (A = 0.5) :*/ 

#define SIGMA_32AM_of_512QAM sqrt ( 42 6 . 0/12/4*pow ( 10 . 0 , { -EBNO / 10.0))) /* 4 info */ 
#define SIGMA_16AM_of_512QAM sqrt (426 . 0/12/4*pow ( 10 . 0, (-EBNO / 10.0))) /* 2 info */ 



/* For R710_1024QAM (A = 0.5):*/ 

#define SIGMA_710_1024QAM sqrt ( (341 . 0/7) /4 * pow ( 10 . 0, ( -EBNO / 10.0))) 



/* 3.5 info */ 



/* Define the particular coding and modulation case for simulation 
#define R36 64QAM 



#define BIT_HIST 

#define THRESHOLD_ITER 

#define MAX_BIT_HIST_ARRAY 

# define ERROR_FI LE_N AME 

#define FRAME_HIST_FILE_NAME 

#define BIT_HIST_FILE_NAME 

#define INTERLEAVER FILE 



10 /* record bit histogram for higher iterations */ 

(2 * INT_SIZE) 

" . . /results/R36_64QAM_6144_test_30.err" 
" . . /results/test . fhist" 
" . . /results/map .hist" 
". ./results/6144/s6144" 



/* 

* Notel: 

Make sure that for each simulation, the INT_SIZE represents the size of the interleaver 
defined in INTERLEAVER_FILE 
*/ 

/* 

* Note2: 
* 

In rate 4/6 64QAM_TTCM only two bits out of four are coded rate half. Therefore, 
the first half of the interleaver table used has a INT_SIZE/2 interleaver, 
the rest is mapping the bits in the same position. 
*/ 



3 



MPUTER PROGRAM LISTING AP^fc)IX 



Votc.c 



/* 

************************* **************************************************** 

* file: tc_v2.c 

* date: March 20, 2000 

* function: tests turbo codes 

* Modulation : QAM 

* Decoder: MAP algorithm 

********************************************* ******************************** 
*/ 



#include "tc v2.h" 



typedef struct { 



int 


enc_state; 


/* 


encoder state 


*/ 


int 


nr_states; 


/* 


number of encoder states 


V 


int 


enc mem; 


/* 


encoder memory 


V 


int 


bp; 


/* 


backward polynomial 


*/ 


int 


fp; 


/* 


forward polynomial 


*/ 


int 


*P0state; 


/* 


previous state for i=0 branch 


*/ 


int 


*Plstate; 


/* 


previous state for i=l branch 


*/ 


int 


*N0state; 


/* 


next state for i=0 branch 


*/ 


int 


*Nlstate; 


/* 


next state for i=l branch 


*/ 


int 


*CodedO; 


/* 


coded bit for i=0 branch 


*/ 


int 


*Codedl; 


/* 


coded bit for i=l branch 


*/ 



} jat_code; 



void jat_mapl ( jat_code *, double *, double *, double *, double *); 

void jat_map2 ( jat_code *, double *, double *, double *, double *); 

void jat_trellis_bp_fp ( jat_code *); 

int jat_ps ( jat_code *, int) ; 

int jat_enc_bp_fp ( jat_code *, int); 

void r_ileav (double *, int *); 

void r_ileava(int *, int *); 

void r_deileav (double *, int *); 

void r_deileava (int *, int *); 

double nrgen { ) ; 

int nrgenbin ( ) ; 

double gasdev{ ) ; 

int errors (int *, double *, int, int); 

int print_err (int *, double *, int, int, int *); 

double f ind_tx_I ( int ) ; 

double find_tx_Q(int) ; 



mt 
int 



int 

int 
int 
long 



*f rame_hist; 
**bit_hist_array; 



*bit_histJblock; 

f rame_err; 
total_err; 
si, s2; 



/* how many frames with how many errors*/ 
/* pointer to NR_ITER pointers 

to blocks of data organised as: 

block nr., bit pos . in error, 
block nr., bit pos. in error */ 
/* current number of blocks in error 

for each iteration */ 
/* frame/block error rate */ 
/* total nr. of err. after NR_ITER */ 
/* seed generators */ 



main ( ) 
{ 

jat_code *jat_codel; 

jat_code *jat_code2; 

int ul, u2, u3, u4, u5, u6; /* bits of a 64QAM symbol in TTCM */ 

double tx_I, tx_Q, rx_I, rx_Q; 

double v00_I, v00_Q, v01_I, v01_Q, vl0_I, vl0_Q, vll_I, vll_Q; 

int i, j, k, block, iteration; 

int *rule ; /* interleaver */ 

int *data; /* the information block of data */ 
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ifl^ix 



int 
int 
int 
int 
int 

double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
double 
FILE 

si 
s2 

f rame_err 
total err 



*data_i; 
*data_d; 
*Encl; 
*Enc2; 
*no_err ; 
*Dl_data; 
*Dl_parity; 
*Dl_app; 
*Dl_exi; 
*D2_data; 
*D2_parity; 
*D2_app; 
*D2_exi; 
*Dec_data; 
*Zero_data; 
dO, dl, d2, 
L_d4, L_d5; 
L_ul, L_u2, 
noise_I, noise_Q; 
*out file = NULL; 



/* the interleaved information block of data*/ 

/* the deinterleaved inf. block of data */ 

/* Encoder 1 output */ 

/* Encoder2 output */ 

/* stores nr. err. for each iteration */ 

/* Decoderl input data */ 

/* Decoderl input parity */ 

/* Decoderl input a priori information */ 

/* Decoderl output extrinsic information */ 

/* Decoder2 input data */ 

/* Decoder2 input parity */ 

/* Decoder2 input a priori information */ 

/* Decoder2 output extrinsic information */ 

/* Decoded data */ 

/* zero data */ 
d3, d4, L_dO, L_dl, L_d2, L_d3, tx, rx, K, noisel, n; 

L u3, L u4, L u5, L u6; 



SEED1; 
SEED2; 
0; 
0; 



/* initialize the seeds for the noise generator 



/* 



* initialize the code structures: 



jat_codel 

jat_codel 

jat_codel 

jat_codel 

jat_codel 

jat_codel 

jat_codel 

j at_codel 

jat_codel 

jat__codel 

jat_codel 

jat_codel 

jat_trelli 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_code2 

jat_trelli 



>enc_raem 

>bp 

>fp 

>enc_state 

>nr_states 

>P0state 

>Plstate 

>N0state 

>Nlstate 

>CodedO 

>Codedl 

s_bp_fp ( jat 

>enc_mem 

>bp 

>fp 

>enc_state : 

>nr_states ; 

>P0state 

>Plstate. 

>N0state 

>Nlstate 

>CodedO 

>Codedl 

s_bp_fp { jat 



= (jat_code *)malloc( 
= RSC1_ENC_MEM; 
= RSC1_BP; 
= RSC1_FP; 
= 0; 

= (1 « RSC1_ENC_MEM) 
= (int *)malloc (sizeo 
= (int *)malloc (sizeo 
= (int *)malloc (sizeo 
= (int *)malloc (sizeo 
- (int *)malloc (sizeo 
= (int *)malloc (sizeo 
_code 1 ) ; 

= (jat_code *)malloc( 
= RSC2_ENC_MEM; 
= RSC2_BP; 
» RSC2_FP; 
* 0; 

= (1 « RSC2_ENC_MEM) 
= (int *)malloc(sizeo 
= (int *)malloc(sizeo 
= (int *)malloc(sizeo 
= (int *) malloc (sizeo 
= (int *)malloc(sizeo 
= (int *)malloc(sizeo 
code2 ) ; 



sizeof ( jat_code) ) ; 



f (int 
f (int 
f (int 
f (int 
f (int 
f (int 



>*jat 

■ )*jat 

■ )*jat 
)*jat 
)*jat 
)*jat 



codel->nr_ 
codel->nr_ 
codel->nr_ 
codel->nr_ 
codel->nr_ 
codel->nr 



states) ; 
states) ; 
states) ; 
states) ; 
states) ; 
states) ; 



sizeof (jat_code) ) ; 



f (int 
f (int 
f (int 
f (int 
f (int 
f (int 



)*jat 
)*jat 
)*jat 
)*jat 
)*jat 
)*jat 



code2->nr_ 
code2->nr_ 
code2->nr_ 
code2->nr_ 
code2->nr_ 
code2->nr 



states) ; 
states) ; 
states) ; 
states) ; 
states) ; 
states) ; 



data = (int *)malloc (sizeof (int) * INT_SIZE) ; 
if (data == 0) 
{ 

printf ("Couldn't allocate data memory ! \n") ; 
exit(l); 

} 

data_i = (int *) malloc (sizeof (int ) * INT_SIZE) ; 
if (data_i == 0) 
{ 

printf ("Couldn't allocate data_i memory!\n"); 
exit (1) ; 

} 
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data_d = {int *)malloc (sizeof (int) * INT_SIZE) ; 
if (data_d == 0) 
{ 

printf ("Couldn' t allocate data_d memory ! \n" ) ; 
exit (1) ; 

} 

no_err = (int *)malloc (sizeof (int ) * NR__ITER) ; 
if (no_err == 0) 
{ 

printf ("Couldn' t allocate no_err memory !\n") ; 
exit(l); 

} 

else 

for{i =0; i < NR_ITER; 
no_err[i] =0; 

Encl = (int * )malloc (sizeof (int) * INT_SIZE) ; 
if (End ==0) 
{ 

printf ("Couldn't .allocate Encl memory! \n") ; 
exit(l); 

} 

Enc2 = (int *) malloc ( sizeof (int ) * INT_SIZE) ; 
if(Enc2 == 0} 
{ 

printf ("Couldn' t allocate Enc2 memory! \n") ; 
exit(l); 

} 

Dl_data = (double *) malloc ( sizeof (double) * INT_SIZE) ; 
if (Dl_data == 0) 
{ 

printf ("Couldn' t allocate Dl_data memory!\n"); 
exit (1) ; 

} 

Dl_parity = (double *) malloc (sizeof (double) * INT_SIZE); 
if(Dl_parity 0) 
{ 

printf ( "Couldn' t allocate Dl_parity memory! \n"); 
exit (1) ; 

} 

Dl_app = (double *) malloc (sizeof (double) * INT_SIZE) ; 
if (Dl_app == 0) 
{ 

printf ("Couldn' t allocate Dl_app memory !\n"); 
exit (1) ; 

} 

Dl_exi = (double *)malloc (sizeof (double) * INT_SIZE) ; 
if(Dl_exi 0) 
{ 

printf ("Couldn' t allocate Dl_exi memory !\n"); 
exit (1) ; 

} 

D2_data = (double *)malloc (sizeof (double) * INT_SIZE) ; 
if(D2_data ==0) 
{ 

printf ("Couldn't allocate D2_data memory!\n"); 
exit(l); 

} 

D2_parity = (double *)malloc (sizeof (double) * INT_SIZE); 
if (D2_parity == 0) 
{ 

printf ( "Couldn* t allocate D2_parity memory! \n") ; 
exit (1) ; 
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> 

D2_app = (double *) malloc {sizeof (double) * INT_SIZE) ; 
if(D2_app ==0) 
{ 

printf ("Couldn't allocate D2_app memory ! \n") ; 
exit(l); 

} 

D2_exi = (double *) malloc ( sizeof (double) * INT_SIZE) ; 
if(D2_exi == 0) 
{ 

printf ("Couldn' t allocate D2_exi memory ! \n" ) ; 
exit (1) ; 

} 

Dec_data = (double *)malloc (sizeof (double) * INT__SIZE) ; 
if(Dec_data 0) 
{ 

printf ("Couldn' t allocate Dec_data memory !\n"); 
exit(l); 

} 

Zero_data = (double *) malloc (sizeof (double) * INT_SIZE) ; 
if (Zero_data ==0) 
{ 

printf ("Couldn't allocate Zero_data memory !\n"); 
fl exit(l); 

Jr\ > 

for(i =0; i < INT_SIZE; i++) 
III Zero_data[i] =0.0; 

&t frame_hist = (int *) malloc ( sizeof (int) * ( INT__SIZE+1 ) * NR_ITER) ; 

^ a if (frame_hist ==0) 

i™* ( 

Sail 1 

iaiA printf ("Couldn 1 1 allocate frame_hist memory!\n"); 

^ s exit(l); 

M } 

., else 

L { 

LI for(i =0; i < (INT_SIZE+1) *NR_ITER; 

.'I! f rame_hist [i] = 0; 

ill } 

; :t s 
•si-is- 

Q bit_hist_array = (int ** ) malloc (sizeof (int *) * 2 * NR_ITER) ; 

i*\ if (bit hist array == 0) 

I < ~ ~ 

s^ 8 printf ("Couldn' t allocate bit_hist_array memory ! \n M ) ; 

exit(l); 

} 

else 
{ 

for(i = THRESHOLD_ITER; i <= NR_ITER; i++) 
{ 

bit_hist_array[i] - (int *)malloc(sizeof (int) * MAX_BIT_HIST_ARRAY) ; 
bit_hist_array [i+NR_ITERJ = bit_hist_array [i] ; /* store the original pointer */ 
if (bit_hist_array [i] == 0) 
{ 

printf ("Couldn' t allocate bit_hist_array [i] memory!\n"); 
exit (1) ; 

} 

} 

} 

bit_hist_block = (int *)malloc (sizeof (int) * (NR_ITER+1 ) ) ; 
if (bit_hist_block == 0) 
{ 

printf ("Couldn' t allocate bit_hist_block memory! \n") ; 
exit(l); 

} 

else 
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{ 

for(i = 0; i NR_ITER; 
bit_hist_block[i] = 1; 

} 

rule = (int * )malloc (sizeof (int ) * INT_SIZE * 2); 
if (rule == 0) 
{ 

print f ("Couldn't allocate rule memory ! \n" ) ; 
exit (1) ; 

} 

for(i = 0; i < INT_SIZE; i++) 
rule[2*i] = 0; 

/* 

* read the interleaver file 
*/ 

out_file = fopen (INTERLEAVER_FILE, "r"); 

if ( !out_file) 
{ 

printf ("Errorl : the output file could not be opened !\n"); 
exit (1); 

) 

for(i = 0; i < INT_SIZE; 

fscanf (out_file, "%d%d", &i, Srule [2*i+l] ) ; 
fclose (out_f ile) ; 



/* 

* initialize the noise generator seeds in order to have the same data and 

* noise for different random interleavers 
*/ 

si = SEED1; 
s2 = SEED2; 

/* 

* start the big loop: * 
*/ 

for (block = 1; total_err < MAX_ERRORS; block++) 
{ 

jat_codel->enc_state = 0; /* reset encoderl's state 

jat_code2->enc_state = 0; /* reset encoder's state 

ford = 0; i < INT_SIZE; /* no app for first decoder 

Dl_app[i] = 1.0; 

/* 

* generate random data: 
*/ 

ford = 0; i < INT_SIZE; i++) 
data[i] = nrgenbinO; 

/* 

* encoderl: 
*/ 

for(i = 0; i < INT_SIZE; 

Encl[i] = j at_enc_bp_f p { jat_codel, data[i]); 

/* 

* interleave data: 
*/ 

ford = 0; i < INT_SIZE; 

data_i[i] = datati]; 
r_ileava { data_i , rule ) ; 

/* 

* encoder2: 
*/ 

ford = 0; i < INT_SIZE; i++) 
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Enc2[i] = j at_enc_bp_f p ( jat_code2, data_i[i]); 

/* 

* deinterleave data: 
V 

ford = 0; i < INT_SIZE; 

data_d[i] = data[i] ; 
r_deileava (data_d, rule); 

/* 

* modulate and add AWGN noise: 
V 



#ifdef R12_4AM 
/* 

* Channel: 

* dO is MSB and dl is LSB in a 4-AM:(d0,dl) = 01 — 00- 1 -10— 11 

* -3-113 
V 



ss'3 



n = (-1.0) / (2 * SIGMA_12_4AM * SIGMAJL2_4AM) ; 
ford = 0; i < INT_SIZE; i++) 
{ 

dO = data [i] ; 
if(i & 0x1) 

dl = Encl [i] ; 
else 

dl = Enc2[i]; 
tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
III rx = tx + SIGMA_12_4AM * gasdev(); 

L_d0 = log( (exp(n* (rx-1) * (rx-1) ) +exp (n* (rx-3) * (rx-3) ) ) / 
\H (exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

W* L_dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 

p (exp(n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 

■Zl Dl_data[i] = L_d0; 

^ 3 if(i & 0x1) 

M < 

Dl_parity[i] = L_dl; 
!L D2_parity[i] = 0.0; 

f = else 

W Dl_parity[i] =0.0; 

Q D2_parity[i] = L_dl; 

} 



} 



#endif 



#ifdef R13_8AM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8-AM: (d0,dl,d2) : 

* 010 011 001 — -000 100—101 111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 



n = (-1.0) / (2 * SIGMA_13_8AM * SIGMA_13_8AM) ; 
ford = 0; i < INT_SIZE; i++) 
{ 

dO = datafi] ; 
if(i & 0x1) 
{ 

dl = Encl[i]; 
d2 =* Enc2[i] ; 

} 

else 
< 

dl = Enc2[i] ; 
d2 = Encl[i] ; 
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} 



tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2) 
rx = tx + SIGMA_13_8AM * gasdevO; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * ( rx-3 . 5) ) )/ 
(expfn* (rx+0 .5) * (rx+0. 5) ) +exp <n* (rx+1 . 5) * ( rx+1 . 5) ) + 
exp < n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp { n* ( rx+3 . 5 ) * { rx+3 . 5 ) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * ( rx-3 . 5) ) )/ 
(exp(n*(rx+1.5)*(rx+1.5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5 ) * (rx-1.5) ))) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1.5) * (rx-1.5) ) +exp(n* (rx-2.5) * (rx-2.5) ) ) / 
(exp (n* (rx+3 .5) * (rx+3. 5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) + 
exp (n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-3 . 5) * (rx-3 .5) ) ) ) ; 

Dl_data[i] = L_d0; 
if(i & 0x1) 
{ 

Dl_parity[i] = L_dl; 

D2_parity[i] = L_d2; 

} 

else 
< 

Dl_parity[i] = L_d2; 

D2_parity[i] = L_dl; 



#endif 



#ifdef R12_8AM 
JSJ. * Channel : 

ijl * dO is MSB and d2 is LSB in 8-AM: (d0, dl, d2) : 

jpt * 010— Oil — -001 — 000 — 100 — 101 — 111 — 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
V 

U /* 

,|J * Channel: we transmit two 8AM symbols to emulate a 64 QAM symbol. 

l\: * 6 info bits and 6 parity bits are mapped to 2 64QAM symbols which in 

* turn are simulated as 4 8AM symbols to achieve 3bit/s/Hz 

CI 

i a \ * INT_SIZE to be a multiple of 6 

n = (-1.0) / (2 * SIGMA_12_8AM * SIGMA_12_8AM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = data[i+l] ; 
d2 = Enclfi]/ 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2) ) t 
rx - tx + SIGMA_12_8AM * gasdevO; 

L_d0 = log((exp(a*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp (n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) )/ 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+ 1 . 5 ) ) + 
exp(n* (rx+2. 5)* (rx+2. 5) )+exp(n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L_dl - log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) ) / 
(exp(n*(rx+1.5)*(rx+1.5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 . 5 ) * ( rx-1 . 5) ) ) ) ; 

L_d2 - log( (exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx-1.5)* (rx-1.5) )+exp(n* (rx-2.5) * (rx-2.5) ) ) / 
(exp(n* (rx+3. 5)* (rx+3. 5) )+exp(n* ( rx+0 . 5) * ( rx+0 . 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) ) ) ; 
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Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

Dl_parity[i+1] = 0; 

D2_parity[i] = 0; 

/* symbol 2 */ 
dO data[i+2] ; 

dl = Encl [i+2] ; 
d2 = Enc2 [i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) )<0? (d2-0.5) : (0.5-d2) ) ; 
rx = tx + SIGMA_12_8AM * gasdev(); 

L_d0 = log( (exp(n*(rx-0.5)*(rx-0.5) ) +exp (n* (rx-1 . 5 ) * (rx-1 . 5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0 .5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1 . 5) ) + 
exp<n* (rx+2.5) * (rx+2.5) ) +exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_dl - log( (exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1 .5) * (rx+1 .5) )+exp(n* (rx+0.5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log( (exp{n* (rx+2.5) * (rx+2.5) )+exp<n* (rx+1. 5)* (rx+1. 5) ) + 
exp(n* (rx-1 .5) * (rx-1 .5) )+exp(n* (rx-2.5) * {rx-2. 5) ) ) / 
(exp(n* (rx+3 .5) * (rx+3 .5) ) +exp(n* (rx+0.5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) ) ) ; 
Dl_data[i+2] = L_dO; 
r| Dl_parity [i+2] = L_dl; 

^ D2_parity[i+1] = L_d2; 

D2_parity [i+2] = 0; 

?*. /* symbol 3 */ 

data[i+3]; 
data[i+4] ; 
Enc2 [i+3] ; 

2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0.5) : (0.5-d2) ) ; 
tx + SIGMA_12_8AM * gasdev ( ) ; 

log ( <exp(n* (rx-0. 5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2 .5) * (rx+2 .5) ) +exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

log ( {exp(n* (rx+3. 5) * (rx+3.5) ) +exp(n* (rx+2 .5) * (rx+2 . 5) ) + 
exp(n* (rx-2.5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1.5) * (rx+1 .5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) ) ) ; 

log ( (exp(n* (rx+2. 5) * (rx+2.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2.5) * (rx-2.5) ) ) / 
(exp(n* (rx+3.5) * (rx+3 .5) ) +exp(n* (rx+0 .5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 
Dl_data[i+3] = L_dO; 
Dl_data[i+4] = L_dl; 
D2_parity[i+3] = L_d2; 
Dl_parity[i+3] = 0; 
D2_parity[i+4] - 0; 

/* symbol 4 */ 
dO = data[i+5]; 
dl = Encl [i+4] ; 
d2 = Enc2 [i+5] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) )<0? (d2-0.5) : (0.5-d2) ) ; 
rx = tx + SIGMA_12_8AM * gasdev<); 

L_d0 = log ( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 .5) * (rx-1 .5) ) + 
exp(n* (rx-2 .5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3 .5) ) ) / 
(exp (n* (rx+0.5) * (rx+0 .5) ) +exp(n* (rx+1 .5) * (rx+1 . 5) ) + 
exp(n* (rx+2 .5) * (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5) ) ) ) ; 

L_dl = log ( (exp (n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2 .5) * (rx+2 .5) ) + 
exp(n* (rx-2 .5) * (rx-2. 5) ) +exp(n* (rx-3.5) * (rx-3. 5) ) ) / 
( exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 



lis 



p = 



dO 
dl 
d2 
tx 
rx 

L dO 



L dl 



L d2 
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exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ))) ; 

L_d2 = log( (exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1 . 5) * (rx-1 .5) ) +exp (n* (rx-2 . 5) * (rx-2 .5) ) ) / 
(exp(n* (rx+3.5)* (rx+3.5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) ) ; 
Dl_data[i+5] = L_dO; 
Dl_parity[i+4] = L_dl; 
D2_parity[i+5] = L_d2; 
Dl_parity [1+5 ] = 0; 

i = i+5; 

} 

#endif 

#ifdef R23_8AM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, d2 ) : 

* 010—011—001 000 100 101 — 111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
V 

n = (-1.0) / (2 * SIGMA_23_8AM * SIGMA_23_8AM) ; 
for(i = 0; i < INT_SIZE; 
{ 

dO = datati] ; 
dl = data[i+l] ; 
if(i & 0x4) 
d2 = Encl[i] ; 
IJS else 
'« d2 = Enc2[i] ; 

1 = 3 

III 

j"J tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0. 5) : (0 .5-d2) ) ; 

rx = tx + SIGMA_23_8AM * gasdevO; 
^- L_dO = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 

\xk exp(n* (rx-2. 5)* (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) )/ 

(exp(n* (rx+0. 5) * (rx+0. 5) ) +exp(n* (rx+1 .5) * (rx+1.5) ) + 
exp(n* (rx+2 .5) * (rx+2 .5) ) +exp (n* (rx+3 . 5) * (rx+3.5) ) ) ) ; 



L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) / 
w (exp(n* (rx+1 .5) * (rx+1.5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) + 

exp(n* (rx-0 .5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1 .5) ) ) ) ; 
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L_d2 = log( (exp(n* (rx+2.5) * (rx+2.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1. 5)* (rx-1. 5) )+exp(n* (rx-2. 5) * (rx-2. 5) ) )/ 
(exp(n* (rx+3 .5) * (rx+3.5) ) +exp(n* (rx+0 .5) * (rx+0. 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 

Dl_data[i] - L_dO; 
Dl_data[i+1] = L_dl; 
if(i & 0x4) 
{ 

Dl_parity[i] = L_d2; 
Dl_parity[i+1] = 0; 
D2_parity[i] = 0; 
D2jparity [i+1] = 0; 

} 

else 
{ 

Dl_parity[i] = 0; 
Dl_parity[i+1] = 0; 
D2_parity[i] = L_d2; 
D2_parity [i+1] = 0; 

} 

i++; 



} 



#endif 
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lifdef R35_32QAM 
/* 

* I dimension: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, d2) : 

* 010 Oil 001 000 100™ 101 — -111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* Q dimension: 

* dO is MSB and dl is LSB in a 4-AM: (dO,dl) : 

* 01 00 10 11 

* -1.5 -0.5 0.5 1.5 
* 

* 

* We transmit one 8AM symbol and one 4AM symbol to emulate a 32QAM symbol. 

* 6 info bits and 4 parity bits are mapped to 2 32QAM symbols. 
* 

* INT_SIZE to be a multiple of 6 
*/ 

for(i = 0; i < INT_SIZE; 
{ 

/* symbol 1: 8AM */ 
dO = datati] ; 
dl = data[i+2] ; 

d2 = Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l ) ) <0? (d2-0 . 5) : ( 0 . 5-d2 ) ) j 
rx = tx + SIGMA_8AM_of_32QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_8AM_of__32QAM * SIGMA_8AM_of_32QAM) ; 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2. 5)* (rx+2. 5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 



KB 

m 

j=% L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 

:~ exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 

f J* ( exp (n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 

Ink exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 



L_d2 = log ( (exp(n* (rx+2 .5) * (rx+2.5) ) +exp(n* (rx+1 .5) * (rx+1.5) ) + 
Q exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2.5) * (rx-2.5) ) ) / 

|= (exp(n* (rx+3. 5) * (rx+3.5) ) +exp(n* (rx+0. 5) * (rx+0.5) ) + 

s ] exp(n* (rx-0. 5) * (rx-0.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 

U Dl_data[i] = L_d0; 

□ Dl_data[i+2] = L_dl;. 

Z\ Dl_parity[i] = L_d2; 

~< f Dl_parity [i+1] = 0.0; 

Dl_parity [i+2] = 0.0 
D2_parity[i] = 0.0 
D2_parity [i+2] =0.0 

/* symbol 2: 4AM */ 
dO = data [i+1] ; 
dl = Enc2 [i+1] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_32QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_32QAM * SIGMA_4AM_of_32QAM) ; 
L_d0 = log ( (exp (n* (rx-0. 5)* (rx-0. 5) )+exp(n* (rx-1.5)* (rx-1.5))) / 

(exp (n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L_dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp (n* (rx-0. 5) * (rx-0.5) )+exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+1] = L_d0; 
D2_parity [i+1] = L_dl; 

/* symbol 3: 8AM */ 

dO = data[i+3] ; 

dl = data[i+5] ; 

d2 = Enc2[i+4] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) )<0? (d2-0.5) : (0.5-d2) ) ; 
rx = tx + SIGMA_8AM_of_32QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_8AM_of_32QAM * SIGMA_8AM_of__32QAM) ; 
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log( (exp(n* (rx-0.5)* (rx-0.5) )+exp<n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp (n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

log( (exp (n* (rx+3.5) * (rx+3.5) ) +exp (n* <rx+2 . 5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 

log( (exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx-1.5) * (rx-1.5) ) +exp (n* (rx-2.5) * (rx-2 .5) ) ) / 
(exp (n* (rx+3. 5) * (rx+3.5) ) +exp (n* (rx+0 . 5) * (rx+0.5) ) + 
exp (n* (rx-0. 5) * (rx-0.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) ) ; 
Dl_data[i+3] = L_dO; 
Dl_data[i+5] = L_dl; 
Dl_parity[i+4] = 0.0; 
Dl_parity[i+5] = 0.0; 
D2_parity [i+3] = 0.0; 
D2_parity [i+4] = L_d2; 
D2_parity [i+5] =0.0; 

/* symbol 4: 4AM */ 
dO = data [i+4] ; 
dl = Enclti+3] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_32QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_32QAM * SIGMA_4AM_of_32QAM) ; 
L_d0 = log( (exp(n* (rx-0.5)* (rx-0.5) )+exp{n* (rx-1.5) * (rx-1.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0. 5) ) +exp(n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L_dl = log( (exp(n* (rx+1.5)* (rx+1.5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) / 

(exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+4 3 = L_d0; 
Dl_parity[i+3] = L_dl; 

i = i+5; 

} 

#endif 



L dO = 



L dl = 



L d2 = 



#ifdef R4 6_64QAM_TTCM_VoCAL 
/* Option 4 

* Channel: I & Q defined as 

_, | | | | -| | |- 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* the 64 QAM symbol is defined as: (ul, u2, u3, u4, u5, u6) 

* where u4 = dO 

* u3 = dl 

* u2 = pO parity from ENC_H 

* ul =» ql parity from ENC_V 

* u5 = d uncoded 

* u6 = d uncoded 

* Use s4096v interleaver - only first 2048 bits are interleaved 
*/ 

n = (-1.0) / (2 * SIGMA_4 6_64QAM * SIGMA_4 6_64QAM) ; 
for(i = 0; i < INT_SIZE/2 -1;) 
{ 

/* Encode only first half of INT_SIZE 

* dO, dl, d2, d3,... up to INT_SI2E/2 - 1 

* pO, 0, p2, 0, . . . 

* 0, ql, 0, q3, . . . 
*/ 

u4 = data [i] ; 
u3 = data[i+l] ; 
u2 = Encl[i] ; 
ul = Enc2 [i+1] ; 
u5 = data[i+lNT_SlZE/2] ; 
u6 = data[i+lNT_SlZE/2+l] ; 

k = u6+2*u5+4*u4+8*u3+16*u2+32*ul; 
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tx_I = find_tx_I(k) ; 
tx_Q = find_tx_Q(k) ; 

rx_I = tx_I + SIGMA_46_64QAM * gasdevO; 
rx_Q = tx_Q + SIGMA_46_64QAM * gasdevO; 

L_dO = log( (exp(n* ( (rx_I+3 . 5) * < rx_I+3 . 5) + (rx_Q-3 .5} * <rx_Q-3.5) ) ) + 

exp(n*( (rx_I + 1.5)*(rx_I + 1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp{n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp<n* ( (rx_I+2.5) * (rx_I+2.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I+0 .5) * (rx_I+0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n*( (rx_I-1.5)*(rx_I-1.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp (n* ( (rx_I+3 . 5) * (rx__I+3 . 5) + (rx_Q-l .5) * (rx_Q-l .5) ) ) + 

exp(n*( (rx_I+1.5)*(rx_I+1.5) + (rx_Q-l . 5) * (rx_Q-l .5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

exp(n*{ (rx_I-2.5) *(rx_I-2.5) + { rx_Q-l . 5) * { rx_Q-l . 5) ) ) + 

exp(n*( (rx_I+2.5) * (rx_I+2.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* { (rx_I+0.5) * (rx_I+0.5) + (rx_Q-0 . 5) * {rx_Q-0 . 5) ) ) + 

exp (n* { (rx_I-l .5) * (rx_I-l . 5) + (rx_Q-0 . 5) * ( rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3. 5) + (rx_Q-0. 5) * (rx_Q-0.5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+0. 5) * (rx_Q+0.5) ) ) + 

exp(n* ( (rx_I+l .5) * (rx_I+1.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0. 5) + (rx_Q+0. 5) * (rx_Q+0 . 5)') ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+2.5) * (rx_I+2.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

pi- exp(n* ( (rx_I+0.5) * <rx_I+0.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

^ exp(n* { (rx_I-1.5) * {rx_I-1.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + ( rx_Q+l . 5 ) * ( rx_Q+l . 5 ) ) ) + 

III exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + ■ 

p exp(n* ( (rx_I+1.5) * {rx_I+1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp (n* { (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

ill exp(n*( (rx_I-2.5) *(rx_I-2.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n*( (rx_I+2.5) * (rx_I+2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

\*i exp(n* ( (rx_I-l .5) * (rx_I-l. 5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

M exp(n* ( (rx_I-3.5) * (rx_I-3. 5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) ) / 

(exp(n* ( (rx_I+2 .5) * (rx_I+2. 5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

!i. exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q-3 . 5) * (rx_Q-3 .5) ) ) + 

III exp(n* ( (rx_I-l .5) * (rx_I-l. 5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

? |™ exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

'J] exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

l M exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

r : | exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

. exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

]~* exp (n* ( (rx_I+2 . 5) * (rx_I+2 . 5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

M exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

exp(n* ( (rx_I-1.5) * (rx_I-1.5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I+1.5) **(rx_I + 1.5) + (rx_Q-0 . 5) * (rx_Q-0 .5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-0 . 5) * (rx_Q-0 .5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2 . 5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I+2 .5) * (rx_I+2 . 5) + (rx_Q+0 . 5) * {rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0. 5) + (rx_Q+0 . 5) * {rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I-l .5) * (rx_I-1.5) + (rx_Q+0 . 5) * {rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( {rx_I+l .5) * (rx_I+1.5) .+ (rx_Q+l . 5) * {rx_Q+l . 5) ) ) + 

exp(n* { (rx_I-0.5) * (rx_I-0.5) + (rx_Q+l . 5) * {rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+2 .5) * (rx_I+2.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+2 . 5) * {rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I-1.5) * (rx_I-1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp{n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n*( (rx_I-2.5) * (rx_I-2.5) + (rx_Q+3 . 5) * (rx_Q+3 .5) ) ) ) ) ; 
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L_dl - log((exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q-3 . 5) * {rx_Q-3 . 5 ) ) ) + 

exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + <rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp<n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I-1.5) * (rx_I-1.5) .+ (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 

exp(n* { (rx_I-2 . 5) * (rx_I-2.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 

exp(n* ( (rx_I-3. 5) * (rx_I-3.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 

exp<n*<(rx_I+3.5)*(rx_I+3.5) + (rx_Q-l . 5) * (rx_Q-l. 5) ) ) + 

exp(n*((rx_I+2.5)*(rx_I+2.5) + (rx_Q-l . 5) * (rx_Q-l . 5 ) ) ) + 

exp(n*((rx_I+1.5) + '(rx_I + 1.5) + (rx_Q-l . 5) * (rx_Q-l. 5) ) ) + 

exp(n*((rx_I+0.5)*(rx_I+0.5) + (rx_Q-l . 5) * (rx_Q-l . 5 ) ) ) + 

exp(n*(<rx_I-0.5)*(rx_I-0.5) + (rx_Q-l . 5) * (rx_Q-l . 5 ) ) ) + 

exp (n* ( (rx_I-l . 5) * (rx_I-l . 5) + (rx_Q-l . 5) * (rx_Q-l. 5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 . 5) + (rx_Q-l . 5) * (rx_Q-l . 5 ) ) ) + 

exp (n* ( <rx_I-3 . 5) * (rx_I-3 . 5) + (rx_Q-l . 5) * (rx_Q-l. 5) ) ) + 

exp (n* ( (rx_I+3 . 5) * (rx_I+3 . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 

exp(n* ( <rx_I+2 . 5) * (rx_I+2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 

exp (n* ( (rx_I+l . 5) * (rx_I+l . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 

exp (n* { (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* { (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* ( (rx_I-l . 5) * (rx_I-l . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* { (rx_I-2. 5) * (rx_I-2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* ( (rx_I-3. 5) * (rx_I-3.5) + <rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp (n* { (rx_I+2. 5) * (rx_I+2.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

O exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I-0. 5) * (rx_I-0.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n*((rx_I-1.5)+(rx_I-1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

llj exp(n*((rx_I-2.5)*(rx_I-2.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

f= exp(n*((rx I-3.5)*(rx 1-3.5) + (rx Q+2.5)*(rx Q+2.5)))) / 

srac — — — — 

(exp (n* { (rx_I+3 . 5) * (rx_I + 3 . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp (n* { (rx_I+2 . 5) * (rx_I+2 . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

13 exp (n* { (rx_I+l . 5) * (rx_I+l . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

t^j exp (n* ( (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

M exp (n* ( (rx_I-l . 5) * (rx_I-l . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

" exp (n* ( (rx_I-3 .5) * (rx_I-3.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

. f=l exp (n* ( (rx_I+3 .5) * (rx_I+3.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

£1 exp (n* ( (rx_I+2 .5) * (rx_I+2.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I+l .5) * (rx_I + 1.5) + ( rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

;f; exp (n* ( (rx_I+0 .5) * (rx_I+0.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

Q exp (n* { (rx_I-0.5) * (rx_I-0.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

p| exp (n* ( (rx_I-l .5) * (rx_I-1.5) + <rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 . 5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

H= exp(n*((rx_I-3.5)*(rx_I-3.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I+3 . 5) * (rx_I+3 . 5) + (rx_Q+l . 5) * <rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I+2 . 5) * (rx_I+2 . 5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I+l .5) * (rx_I+1.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I+0 . 5) * (rx_I+0. 5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0. 5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I-l . 5) * (rx_I-l . 5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 . 5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* { (rx_I-3 .5) * (rx_I-3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+3 .5) * (rx_I+3.5) + (rx_Q+3 . 5) * (rx_Q+3 :5) ) ) + 

exp(n*((rx_I+2.5)*(rx_I+2.5) + <rx_Q+3 . 5) * <rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+3 . 5) * <rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n*((rx_I-1.5)*(rx_I-1.5) + (rx_Q+3 . 5) * <rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp (n* ( (rx_I-3 . 5) * (rx_I-3. 5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) ) ) ; 

L_d2 = log( (exp (n* ( (rx_I+l. 5) * (rx_I+1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 . 5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

■exp (n* ( (rx_I-3 . 5) * (rx_I-3 . 5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp (n* ( (rx_I+l . 5) * (rx_I+l . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I+0 .5) * (rx_I+0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 
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.5 


* 


(rx_Q+0 


5) 


I ) + 


exp 


(n* ( 


(rx_I+0 


5)* 


(rx_I+0 


5) 


+ 


(rx_Q+l 


.5] 


* 


(rx_Q+l 


5) 


i ) + 


exp 


(n* ( 


(rx_I+l 


5)* 


(rx_I+l 


5) 


+ 


(rx_Q+l 


5] 


* 


(rx_Q+l 


5) 


) ) + 


exp 


(n* ( 


(rx 1-2 


5)* 


(rx 1-2 


5) 


+ 


(rx_Q+l 


5 


* 


(rx_Q+l 


5) 


) ) + 


exp 


(n* ( 


(rx_I-3 


5)* 


(rx_I-3 


5) 


+ 


(rx_Q+l 


5] 


* 


(rx_Q+l 


5) 


) ) + 


exp 


(n* ( 


(rx 1+3 


5)* 


(rx_I+3 


5) 


+ 


( rx_Q+2 


5] 


* 


( rx_Q+2 


5) 


) ) + 


exp 


(n* ( 


(rx 1+2 


5)* 


(rx_I+2 


5) 


+ 


( rx_Q+2 


5] 


* 


( rx_Q+2 


5) 


) ) + 


exp 


(n* ( 


(rx_I-l 


5)* 


(rx 1-1 


5) 


+ 


( rx_Q+2 


5] 




( rx_Q+2 


5) 


) ) + 


exp 


(n* ( 


(rx_I-0 


5)* 


(rx_I-0 


5) 


+ 


( rx_Q+2 


5) 


* 


( rx_Q+2 


5) 


i } + 


exp 


(n* { 


(rx_I-0 


5)* 


(rx_I-0 


5) 


+ 


( rx_Q+3 


5) 


* 


(rx_Q+3 


5) 


) } + 


exp 


(n* ( 


(rx_I-l 


5)* 


(rx_I-l 


5) 


+ 


( rx_Q+3 


5) 


* 


( rx_Q+3 


5) 


) ) + 


exp 


(n* ( 


(rx_I+2 


5)* 


(rx_I+2 


5) 


+ 


(rx_Q+3 


5) 


* 


(rx Q+3 


5) 


) ) + 


exp 


(n* ( 


(rx_I+3 


5)* 


(rx_I+3 


5) 


+ 


{ rx_Q+3 


5) 


* 


( rx_Q+3 . 


5) 


))) / 


(exp 


(n* ( 


(rx 1+3 


5)* 


(rx_I+3 


5) 


+ 


{rx Q-3 


5) 


* 


(rx_Q-3 . 


5) 


) ) + 


exp 


(n* ( 


(rx_I+2 


5)* 


(rx 1+2 


5) 


+ 


(rx_Q-3 


5) 


★ 


(rx_Q-3 . 


5) 


) ) + 


exp 


(n* ( 


(rx_I-0 


5)* 


(rx_I-0 


5) 


+ 


(rx_Q-3 


5) 


* 


(rx_Q-3. 


5) 


> ) + 


exp 


(n* ( 


(rx_I-l 


5)* 


(rx 1-1 


5) 


+ 


{rx_Q-3 


5) 


* 


(rx_Q-3 . 


5) 


) ) + 


exp 


(n* ( 


{rx_I+3 


5)* 


(rx_I+3 


5) 


+ 


(rx_Q-2 


5) 


* 


( rx_Q-2 . 


5) 


) ) + 


exp 


(n* ( 


{rx 1+2 


5)* 


(rx_I+2 


5) 


+ 


(rx_Q-2 


5) 


* 


(rx_Q-2 . 


5) 


) ) + 


exp 


(n* ( 


{rx_I-0 


5)* 


(rx_I-0 


5) 


+ 


(rx_Q-2 


5) 


* 


(rx_Q-2 . 


5) 


) ) + 


exp 


(n* ( 


{rx_I-l 


5)* 


(rx_I-l 


5) 


+ 


(rx_Q-2 


5) 


* 


(rx_Q-2 . 


5) 


) + 


exp 


(n* ( 


(rx_I+l 


5)* 


(rx_I+l 


5) 


+ 


(rx_Q-l 


5) 


* 


( rx_Q- 1 . 


5) 


) ) + 


exp 


(n* ( 


<rx_I+0 


5)* 


(rx_I+0 


5) 


+ 


(rx_Q-l 


5) 


* 


(rx Q-l. 


5) 


) ) + 


exp 


(n* ( 


{rx_I-2 


5)* 


(rx_I-2 


5) 


+ 


(rx_Q-l 


5) 


* 


(rx_Q-l. 


5) 


) ) + 


exp 


(n* ( 


(rx_I-3 


5)* 


(rx_I-3 


5) 


+ 


(rx__Q-l 


5) 




(rx_Q-l. 


5) 


) ) + 


exp 


(n* ( 


(rx_I+l 


5)* 


(rx_I+l 


5) 


+ 


(rx_Q-0 


5) 


* 


(rx_Q-0. 


5) 


) ) + 


exp 


(n* ( 


(rx 1+0. 


5)* 


(rx 1+0 


5) 


+ 


(rx_Q-0 


5) 


* 


(rx_Q-0 . 


5) 


) ) + 


exp 


(n* ( 


(rx_I-2 


5)* 


(rx 1-2 


5) 


+ 


(rx_Q-0 


5) 


* 


(rx_Q-0 . 


5) 


> ) + 


exp 


(n* ( 


(rx 1-3, 


5)* 


(rx 1-3 


5) 


+ 


(rx_Q-0 


5) 


* 


(rx_Q-0 . 


5) 


> ) + 


exp 


(n* ( 


(rx 1-1 


5)* 


(rx_I-l 


5) 


+ 


(rx_Q+0 


5) 




(rx_Q+0 . 


5) 


> ) + 


exp 


(n* ( 


(rx_I-0. 


5)* 


(rx_I-0 


5) 


+ 


(rx_Q+0 


5) 


* 


(rx_Q+0 . 


5) 


> } + 


exp 


(n* ( 


(rx_I+2 . 


5)* 


(rx_I+2 


5) 


+ 


(rx_Q+0 


5) 


* 


( rx_Q+0 . 


5) 


> } + 


exp 


(n* ( 


(rx_I+3. 


5)* 


(rx_I+3 


5) 


+ 


(rx_Q+0 


5) 


* 


( rx_Q+0 . 


5) 


) ) + 


exp 


(n* ( 


(rx_I+3. 


5)* 


(rx_I+3 


5) 


+ 


{rx_Q+l 


5) 


★ 


(rx_Q+l . 


5) 


) ) + 


exp 


(n* ( 


(rx_I+2. 


5)* 


(rx_I+2 


5) 


+ 


(rx_Q+l 


5) 


★ 


[rx_Q+l . 


5) 


> ) + 


exp 


(n* ( 


(rx_I-0. 


5)* 


(rx_I-0 


5) 


+ 


{rx_Q+l 


5) 


* 


[rx_Q+l . 


5) 


> ) + 


exp 


(n* { 


(rx_I-l. 


5)* 


(rx_I-l 


5) 


+ 


{rx_Q+l 


5) 


* 


(rx_Q+l . 


5) 


> ) + 


exp 


n* { 


(rx_I+l , 


5) * 


rx_I+l 


5) 


+ 


(rx_Q+2 


5) 




( rx_Q+2 . 


5) 


) + 


exp 


(n* { 


(rx_I+0. 


5)* 


(rx_I+0 


5) 


+ 


(rx_Q+2 


5) 




[ rx_Q+2 . 


5) 


) + 


exp 


(n* ( 


(rx 1-2. 


5)* 


(rx 1-2 


5) 


+ 


(rx_Q+2 


5) 


★ 


[ rx_Q+2 . 


5) 


) ) + 


exp 


[n* ( 


(rx_I-3. 


5)* 


(rx 1-3 


5) 


+ 


(rx_Q+2 


5) 


* 


[ rx_Q+2 . 


5) 


) ) + 


exp 


(n* ( 


(rx_I-3. 


5)* 


(rx 1-3 


5) 


+ 


(rx_Q+3 


5) 


* 


rx_Q+3 . 


5) 


) ) + 


exp 


(n*'( 


(rx_I-2. 


5)* 


(rx_I-2, 


5) 


+ 


(rx_Q+3 


5) 


* 


rx_Q+3 . 


5) 


) + 


exp 


(n* ( 


(rx_I+0. 


5)* 


rx_I+0. 


5) 


+ 


( rx_Q+3 


5) 


* 


rx_Q+3 . 


5) 


) + 


exp 


(n* ( 


{rx_I+l . 


5)* 


(rx_I+l 


5) 


+ 


(rx_Q+3 


5) 


* 


rx_Q+3 . 


5) 


))); 


(exp(n* 


(rx_I+3 


.5)* 


(rx_I+3 


.5) 


+ 


(rx_Q-l 


.5)* 


{rx_Q-l 


.5) 


)) + 


exp 


(n* ( 


(rx_I+2. 


5)* 


trx_I+2. 


5) 


+ 


(rx_Q-l 


5) 


★ 


rx_Q-l. 


5) 


) ) + 


exp 


(n* ( 


{rx_I+l. 


5)* 


rx_I+l . 


5) 


+ 


(rx_Q-l 


5) 


★ 


rx_Q-l. 


5) 


) + 


exp 


(n* ( 


{rx 1+0. 


5)* 


rx_I+0, 


5) 


+ 


(rx Q-l 


5) 


* 


rx_Q- 1 . 


5) 


) + 


exp 


(n* ( 


{rx 1-0. 


5)* 


rx_I-0 . 


5) 


+ 


(rx_Q-l 


5) 




rx_Q- 1 . 


5) 


) + 


exp 


(n* ( 


(rx 1-1. 


5)* 


rx 1-1. 


5) 


+ 


(rx_Q-l 


5) 


* 


rx_Q- 1 . 


5) 


) + 


exp 


(n* ( 


(rx_I-2. 


5)* 


rx 1-2. 


5) 


+ 


(rx_Q-l 


5) 


* 


rx_Q-l . 


5) 


) + 


exp 


n* ( 


(rx 1-3. 


5)* 


rx 1-3. 


5) 


+ 


{rx_Q-l 


5) 


* 


rx_Q-l. 


5) 


) + 


exp 


n* ( 


(rx_I+3. 


5)* 


rx_I+3. 


5) 


+ 


(rx_Q-0 


5) 


* 


rx_Q-0 . 


5) 


) + 


exp 


n* ( 


(rx_I+2. 


5)* 


rx_I+2 . 


5) 


+ 


(rx_Q-0 


5) 


* 


rx_Q-0 . 


5) 


) + 


exp 


n* ( 


(rx_I+l. 


5)* 


rx_I+l. 


5) 


+ 


(rx_Q-0 


5) 


* 


rx_Q-0 . 


5) 


) + 


exp 


n* ( 


(rx_I+0. 


5)* 


rx_I+0. 


5) 


+ 


(rx_Q-0. 


5) 


★ 


rx_Q-0 . 


5) 


) + 
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>^fclX 



exp 


(n* { 


( rx 


1-0 


.5) 


* 


;rx 


I-O 


5) 


+ 


(rx_Q-0 


5) 


* 


(rx_Q-0 


5) ) 


) + 


exp 


(n* { 


(rx 


"i-l 


5) 


* 


[rx 


"i-l 


5) 


+ 


{rx_Q-0 


5) 


* 


(rx_Q-0 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


~I-2 


5) 


* 


|rx 


~I-2 


5) 




(rx_Q-0 


5) 


* 


(rx_Q-0 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"l-3 


.5) 


* 


|rx_ 


"l-3 


5) 


+ 


(rx_Q-0 


5) 


* 


(rx_Q-0 


5) ) 


) + 


exp 


(n* { 


( rx 


"l+3 


.5) 


* 


(rx_ 


"l+3 


5) 


+ 


( rx_Q+2 


5) 


* 


( rx_Q+2 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"l+2 


.5) 


* 


;rx 


"l+2 


5) 


+ 


( rx_Q+2 


5) 


★ 


( rx_Q+2 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"i+l 


.5) 


* 


;rx 


"i + l 


5) 


+ 


( rx_Q+2 


5) 


★ 


( rx_Q+2 


5) ) 


) + 


exp 


(n* ( 


( rx_ 


~I+0 


.5) 


* 


;rx_ 


"i+O 


5) 


+ 


( rx_Q-f 2 


5) 


* 


( rx_Q+2 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"i-O 


.5) 


* 


(rx_ 


"i-O 


5) 


+ 


( rx_Q+2 


5) 


★ 


( rx_Q+2 


5) ) 


) + 


exp 


(n* ( 


(rx 


"i-l 


.5) 


★ 


;rx_ 


"i-l 


5) 


+ 


( rx_Q+2 


5) 


* 


(rx_Q+2 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"l-2 


.5) 


* 


(rx_ 


"l-2 


5) 


+ 


( rx_Q+2 


5) 


* 


( rx_Q+2 


5)) 


) + 


exp 


(n* { 


(rx_ 


"l-3 


.5) 


* 


;rx_ 


"l-3 


5) 


+ 


( rx_Q+2 


5) 


* 


( rx_Q+2 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"l+3 


.5) 


* 


;rx_ 


"l+3 


5) 


+ 


(rx_Q+3 


5) 


* 


(rx_Q+3 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"l+2 


.5) 


* 


;rx_ 


"l+2 


5) 


+ 


(rx_Q+3 


5) 




( rx_Q+3 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"i + l 


5) 


* 


[rx_ 


~I + 1 


5) 


+ 


(rx_Q+3 


5) 


* 


(rx_Q+3 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


~I+0 


.5) 


* 


(rx_ 


"i+O 


5) 


+ 


(rx_Q+3 


5) 


* 


( rx_Q+3 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"i-O 


5) 


★ 


|rx_ 


"i-O 


5) 


+ 


(rx_Q+3 


5) 




( rx_Q+3 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"i-l 


5) 


★ 


(rx_ 


"i-l 


5) 


+ 


(rx_Q+3 


5) 


* 


( rx_Q+3 


5) ) 


) + 


exp 


(n* ( 


(rx_ 


"l-2 


5) 


★ 


(rx_ 


"l-2 


5) 


+ 


(rx_Q+3 


5) 


★ 


(rx_Q+3 


5) ) 


) + 


exp 


(n* { 


(rx 


"l-3 


5) 


* 


;rx 


"l-3 


5) 


+ 


(rx_Q+3 


5) 


* 


( rx_Q+3 


5) ) 


)) / 


(exp 


(n* { 


(rx 


"l+3 


5) 


* 


;rx 


"l+3 


5) 


+ 


(rx_Q-2 


5) 


* 


(rx Q-2 


5) ) 


) + 


exp 


(n* ( 


(rx 


~I+2 


.5) 


* 


[rx 


"l+2 


5) 


+ 


(rx_Q-2 


5) 


★ 


(rx Q-2 


5) ) 


) + 


exp 


(n* ( 


(rx 


"i+l 


5) 


* 


[rx 


"i + l 


5) 


+ 


(rx_Q-2 


5) 


★ 


(rx_Q-2 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"i+O 


5) 


* 


rx_ 


"i+O 


5) 


+ 


(rx Q-2 


5) 


* 


(rx_Q-2 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"i-O 


5) 


* 


(rx_ 


"i-O 


5) 


+ 


(rx_Q-2 


5) 




(rx_Q-2 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"i-l 


5) 


* 


(rx_ 


"i-l 


5) 


+ 


(rx Q-2 


5) 


* 


( rx_Q-2 


5) ) 


) + 


exp 


n*{ 


(rx_ 


"l-2 


5) 


★ 


(rx_ 


"l-2 


5) 


+ 


(rx Q-2 


5) 


* 


(rx_Q-2 


5) ) 


) + 


exp 


(n*( 


(rx_ 


"l-3 


5) 


★ 


(rx_ 


"l-3 


5) 


+ 


(rx_Q-2 


5) 


* 


(rx Q-2 


5) ) 


) + 


exp 


n*( 


(rx_ 


"l+3 


5) 


* 


(rx_ 


"l+3 


5) 


+ 


(rx_Q-3 


5) 


★ 


(rx Q-3 


5) ) 


) + 


exp 


(n* { 


(rx_ 


"l+2 


5) 


* 


(rx_ 


"l+2 


5) 


+ 


(rx Q-3 


5) 


* 


(rx_Q-3 


5) ) 


) + 


exp 


n*{ 


(rx_ 


"i+l 


5) 


★ 


(rx_ 


~I+1 


5) 


+ 


(rx_Q-3 


5) 


★ 


(rx Q-3 


5) ) 


) + 


exp 


n* { 


(rx 


"i+O 


5) 


★ 


;rx 


"i+O 


5) 


+ 


(rx Q-3 


5) 


★ 


(rx_Q-3 


5) ) 


) + 


exp 


n* { 


(rx 


~I-0 


5) 


★ 


(rx_ 


"i-O 


5) 


+ 


(rx_Q-3 


5) 


* 


(rx_Q-3 


5) ) 


) + 


exp 


n* { 


(rx 


"i-l 


5) 


* 


(rx_ 


"i-l 


5) 


+ 


(rx_Q-3 


5) 


* 


(rx_Q-3 


5) ) 


) + 


exp 


n* { 


(rx_ 


"l-2 


5) 


* 


rx 


"l-2 


5) 


+ 


(rx_Q-3 


5) 


* 


(rx_Q-3 


5) ) 


) + 


exp 


n* ( 


(rx 


"l-3 


5) 


* 


rx 


"l-3 


5) 


+ 


(rx_Q-3 


5) 


* 


(rx_Q-3 


5) ) 


) + 


exp 


n* ( 


(rx 


"l+3 


5) 


* 


rx 


"l+3 


5) 


+ 


(rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n* ( 


(rx_ 


"l+2 


5) 


* 


rx 


"l+2 


5) 


+ 


(rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n* ( 


(rx 


"i+l 


5) 


* 


(rx_ 


"i+l 


5) 


+ 


(rx_Q+l 


5) 


★ 


(rx_Q+l 


5) ) 


) + 


exp 


n* { 


(rx_ 


"i+O 


5) 


* 


(rx_ 


"i+O 


5) 


+ 


(rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n* ( 


(rx_ 


"i-O 


5) 


* 


(rx_ 


"i-O 


5) 


+ 


(rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n* { 


(rx_ 


"i-l 


5) 


* 


(rx_ 


"i-l 


5) 


+ 


{rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n*( 


(rx_ 


"l-2 


5) 


* 


(rx_ 


"l-2 


5) 


+ 


(rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n*{ 


(rx_ 


"l-3 


5) 


* 


(rx_ 


"l-3 


5) 


+ 


(rx_Q+l 


5) 


* 


(rx_Q+l 


5) ) 


) + 


exp 


n* ( 


(rx_ 


"l+3 


5) 


* 


(rx_ 




5) 


+ 


(rx_Q+0 


5) 


* 


(rx_Q+0 


5) ) 


) + 


exp 


n* { 


(rx_ 


"l+2 


5) 


* 


(rx_ 


'l+2 


5) 


+ 


(rx_Q+0 


5) 


★ 


(rx_Q+0 


5) ) 


) + 


exp 


n*( 


(rx_ 


"i+l 


5) 


* 


(rx_ 


'i+l 


5) 


+ 


(rx_Q+0 


5) 


* 


(rx_Q+0 


5) ) 


) + 


exp 


n* { 


(rx 


"i+O 


5) 


* 


(rx_ 


"i+O 


5) 


+ 


(rx_Q+0 


5) 


* 


(rx_Q+0 


5) ) 


) + 


exp 


n* ( 


(rx 


"i-O 


5) 


* 


(rx_ 


"i-O 


5) 


+ 


( rx_Q+0 


5) 


* 


(rx_Q+0 


5) ) 


) + 


exp 


n* { 


(rx 


"i-l 


5) 


* 


rx 


"i-l 


5) 


+ 


(rx_Q+0 


5) 


* 


(rx_Q+0 


5) ) 


) + 


exp 


n* { 


(rx 


~I-2 


5) 


* 


rx 


"l-2 


5) 


+ 


(rx_Q+0 


5) 


* 


(rx_Q+0 


5) ) 


) + 


exp 


n* ( 


(rx 


"l-3 


5) 


* 


(rx_ 


"l-3 


5) 


+ 


(rx_Q+0 


5) 


•* 


( rx_Q+0 


5) ) 


) ) ) ; 



Dl_data[i] = L_d3; 

Dl_data[i+1] = L_d2; 
Dl_data[i + INT_SIZE/2] 
Dl_data[i + INT_SIZE/2 + 
Dl_parity[i] = L_dl; 
Dl_parity[i+1] =» 0; 
D2_parity[i] = 0; 
D2_parity[i+1] = L_dO; 

i = i + 2; 



} 



1] 



rx_I ; 
rx Q; 



#endif 



#ifdef R4 6_64QAM_TTCM_Ungerboeck_Map 

/* Option3: conventional set partitioning used in TCM 
* Channel: I & Q defined 

-I | | , [ | | 1- 
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^ENDIX 



* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* the 64QAM symbol is defined as: (ul, u2, u3, u4, u5, u6) 

* where 

* u6 = dO 

* u5 = dl 

* u4 = d2 

* u3 = d3 

* u2 = pO parity from ENC_H 

* ul = ql parity from ENC_V 



for(i = 0; i < INT_SIZE; i++) 

data_d[i] = data[i] ; 
r__deileava (data_d, rule); 

n = (-1.0) / <2 * SIGMA_46_64QAM * SIGMA_4 6_64QAM) ; 
for(i = 0; i < INT_SIZE; ) 



/* Puncturing patern is: 

* dO, dl, d2/ d3, . . . 

* pO, 0, 0, 0, . . . 

* 0, 0, q2, 0,... 

* / 

ul - Encl [i] ; 
u2 = Enc2 [ i ] ; 
u6 = data_d[i+3] ; 
u5 ~ data_d[i+2] ; 
u4 = data_d[i+l] ; 
u3 = data_d [ i ] ; 

k = u6+2*u5+4*u4+8*u3+16*u2+32*ul; 

tx_l = find_tx_I (k) ; 
tx_Q =* find_tx__Q(k) ; 

rx_I = tx_I + SIGMA_4 6_64QAM * gasdev(); 
rx_Q = tx_Q + SIGMA_4 6_64QAM * gasdevO; 

L_d0 = log((exp(n*((rx_I+3.5)*(rx_I+3.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) 
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n* ( 


(rx_I-2 


5) 


* 


(rx_I-2 


5) 


+ 


( rx_Q+2 


5) 


* 


( rx_Q+2 . 


5) ) 


) + 


exp 


n* { 


(rx_I-3. 


5) 


* 


(rx_I-3 


5) 


+ 


( rx_Q+2 


5) 


* 


(rx Q+2. 


5) ) 


) + 


exp 


n* ( 


(rx 1+3. 


5) 


* 


(rx_I+3 


5) 


+ 


(rx_Q+3 


5) 


* 


(rx Q+3. 


5) ) 


) + 


exp 


n* ( 


(rx 1+2. 


5) 


* 


(rx_I+2 


5) 


+ 


(rx_Q+3 


5) 


* 


(rx_Q+3 . 


5) ) 


) + 


exp 


n* ( 


(rx_I+l. 


5) 


* 


[rx_I+l. 


5) 


+ 


( rx_Q+3 


5) 


* 


[rx_Q+3 . 


5) ) 


) + 


exp 


n*( 


(rx_I+0, 


5) 


+ 


(rx_I+0. 


5) 


+ 


( rx_Q+3 


5) 


* 


( rx_Q+3 . 


5) ) 


) + 


exp 


n*( 


(rx I-O. 


5) 


* 


(rx_I-0. 


5) 


+ 


( rx_Q+3 


5) 


★ 


rx_Q+3 . 


5) ) 


) + 


exp 


n* ( 


(rx_I-l. 


5) 


* 


[rx_I-l . 


5) 


+ 


(rx_Q+3 . 


5) 


* 


rx_Q+3 . 


5) ) 


) + 


exp 


n* ( 


(rx_I-2. 


5) 


* 


(rx_I-2 . 


5) 


+ 


(rx_Q+3. 


5) 


* 


rx_Q+3 . 


5) ) 


) + 


exp 


n* ( 


(rx_I-3. 


5) 


★ 


(rx_I-3. 


5) 


+ 


(rx_Q+3 . 


5) 


* 


rx_Q+3 . 


5) ) 


)) / 


(exp 


n* ( 


(rx_I+3. 


5) 


* 


(rx_I+3. 


5) 


+ 


(rx_Q-2 . 


5) 


* 


rx_Q-2 . 


5) ) 


) + 


exp 


n* ( 


(rx_I+2. 


5) 


* 


[rx_I+2. 


5) 


+ 


(rx_Q-2. 


5) 




rx_Q-2 . 


5) ) 


) + 


exp 


n* ( 


(rx_I+l. 


5) 


* 


rx_I+l. 


5) 


+ 


(rx Q-2. 


5) 


* 


rx Q-2. 


5) ) 


) + 


exp 


n* { 


(rx 1+0. 


5) 


* 


rx_I+0. 


5) 


+ 


(rx_Q-2. 


5) 


★ 


rx_Q-2 . 


5) ) 


) + 


exp 


n* { 


(rx I-O. 


5) 


* 


rx_I-0. 


5) 


+ 


(rx_Q-2 . 


5) 


* 


rx_Q-2 . 


5) ) 


) + 


exp 


n* { 


(rx_I-l. 


5) 


* 


rx_I-l. 


5) 


+ 


(rx_Q-2 . 


5) 


* 


rx_Q-2 . 


5) ) 


) + 


exp 


n* ( 


(rx 1-2. 


5) 


* 


rx 1-2. 


5) 


+ 


(rx_Q-2 . 


5) 


* 


rx_Q-2 . 


5) ) 


) + 


exp 


n* { 


(rx_I-3. 


5) 


* 


rx_I-3. 


5) 


+ 


(rx_Q-2 . 


5) 


* 


rx_Q-2 . 


5) ) 


) + 


exp 


n* ( 


(rx_I+3. 


5) 


★ 


rx_I+3. 


5) 


+ 


(rx_Q-3 . 


5) 


* 


rx_Q-3 . 


5) ) 


) + 


exp 


n* ( 


(rx_I+2. 


5) 


* 


rx_I+2. 


5) 


+ 


(rx Q-3. 


5) 


* 


rx_Q-3 . 


5) ) 


\ + 


exp 


n* ( 


(rx_I+l. 


5) 


* 


rx_I+l . 


5) 


+ 


(rx_Q-3. 


5) 


* 


rx_Q-3. 


5) ) 


\ + 


exp 


n* ( 


(rx_I+0. 


5) 


* 


rx_I+0. 


5) 


+ 


(rx_Q-3. 


5) 




rx Q-3. 


5) ) 


\ + 


exp ( 


n* ( 


(rx_I-0. 


5) 


★ 


rx_I-0. 


5) 


+ 


(rx_Q-3 . 


5) 


* 


rx Q-3. 


5) ) 


) + 


exp ( 


n* ( 


(rx_I-l. 


5) 


* 


rx 1-1. 


5) 


+ 


(rx Q-3. 


5) 


* 


rx_Q-3. 


5) ) 


) + 


exp ( 


n* ( 


(rx 1-2. 


5) 


★ 


rx 1-2. 


5) 


+ 


(rx_Q-3. 


5) 


* 


rx_Q-3 . 


5) ) 


) + 


exp ( 


n* ( 


(rx_I-3. 


5) 


* 


rx_I-3. 


5) 


+ 


(rx_Q-3 . 


5) 


* 


rx_Q-3 . 


5) ) 


i + 


exp ( 


n* ( 


(rx_I+3. 


5) 


* 


rx_I+3. 


5) 


+ 


(rx_Q+l . 


5) 


* 


rx_Q+l . 


5) ) 


i + 
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exp(n* ( (rx_I+2.5) *(rx_I+2.5) + (rx_Q+l . 5) * ( rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+1.5) *(rx_I+1.5) + (rx_Q+l . 5) * ( rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+l . 5) * ( rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I-l .5) * (rx_I-1.5) + (rx_Q+l . 5) * ( rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp{n* { (rx_I-3 .5) * (rx_I-3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+3 .5) * (rx_I+3.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+2 .5) * (rx_I+2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp{n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n*( (rx_I-1.5)* (rx_I-1.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp{n*( (rx_I-2.5)* (rx_I-2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) ) ) ; 

L_d4 = log((exp(n*{(rx_I+3.5)*(rx_I+3.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I+2 .5) * (rx_I+2 .5) + <rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp (n* ( (rx_I+l . 5) * {rx_I+l . 5) + ( rx_Q+3 . 5 ) * ( rx_Q+3 . 5 ) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+3 . 5) * {rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + <rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-l .5) * (rx_I-1.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I-3 .5) * (rx_I-3.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( {rx_I+3 . 5) * (rx_I+3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+2 . 5) * (rx_I+2.5) + ( rx_Q+l . 5 ) * ( rx_Q+l . 5 ) ) ) + 

exp(n* ( (rx_I+l . 5) * (rx_I+1.5) + (rx_Q+l .5) * (rx_Q+l . 5) ) ) + 

j»j exp(n* ( (rx_I+0. 5) * (rx_I+0.5) + (rx_Q+l .5) * (rx_Q+l . 5) ) ) + 

'Zt exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+l .5) * (rx_Q+l .5) ) ) + 

W exp (n* { (rx_I-1.5) * (rx_I-1.5) + (rx_Q+l .5) * (rx_Q+l . 5) ) ) + 

f|| exp(n* ( (rx_I-2 .5) * (rx_I-2 .5) + (rx_Q+l . 5) * (rx_Q+l . 5 ) ) ) + 

'fa exp{n* { (rx_I-3.5) * (rx_I-3.5) + (rx_Q+l .5) * (rx_Q+l . 5) ) ) + 

exp (n* { (rx_I+3. 5) * (rx_I+3.5) + (rx_Q+0 . 5) * {rx_Q+0 . 5 ) ) ) + 

ill exp(n* ( (rx_I+2 .5) * (rx_I+2 .5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 

P| exp(n* { (rx_I + l .5) * (rx_I + l .5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

!jj exp{n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp{n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) + 

exp(n* ( (rx_I-l .5) * (rx_I-l .5) + (rx_Q+0 . 5 ) * ( rx_Q+0 . 5) ) ) + 

exp(n* ( {rx_I-2 .5) * (rx_I-2 .5) + (rx_Q+0 . 5) * ( rx_Q+0 . 5) ) ) + 

exp (n* ( (rx_I-3 . 5) * (rx_I-3 . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

O exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

H exp (n* ( {rx_I+2 . 5) * (rx_I+2 . 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

!"^". exp (n* ( (rx_I+l . 5) * (rx_I+l . 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

\M exp (n* ( (rx_I+0 . 5) * (rx_I+0. 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

IZl exp (n* ( {rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp (n* ( {rx_I-l . 5) * (rx_I-l . 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

] ar exp(n* ( (rx_I-2 . 5) * (rx_I-2.5) + (rx_Q+2 .5) * (rx_Q+2 . 5) ) ) + 

M exp(n* ( (rx_I-3. 5) * (rx_I-3.5) + (rx_Q+2 .5) * (rx_Q+2 . 5) ) ) ) / 

(exp(n* ( (rx_I+3. 5) * (rx_I+3.5) + (rx_Q-2.5) * (rx_Q-2 .5) ) ) + 

exp(n*( (rx_I+2.5)*(rx_I+2.5) + <rx_Q-2 .5) * (rx_Q-2 .5) ) ) + 

exp (n* ( (rx_I+l .5) * (rx_I+l .5) + (rx_Q-2 .5) * (rx_Q-2 . 5) ) ) + 

exp (n* ( (rx_I+0.5) * (rx_I+0 . 5) + <rx_Q-2 .5) * <rx_Q-2 .5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 

exp (n* ( (rx_I-l . 5) * (rx_I-l . 5) + (rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2 .5) + (rx_Q-2 . 5 ) *,{rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I-3 .5) * (rx_I-3.5) + (rx_Q-2 . 5) * ( rx_Q-2 . 5) ) ) + 

exp (n* ( (rx_I+3 . 5) * (rx_I+3 .5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I+2 . 5) * (rx_I+2 .5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I + l . 5) * (rx_I+l .5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I+0 .5) * (rx_I+0 .5) + (rx_Q-0 . 5} * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I-1.5) * (rx_I-l .5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5 ) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3 .5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I+3. 5) * (rx_I+3 .5) + (rx_Q-l .'5) * (rx_Q-l . 5 ) ) ) + 

exp (n* ( (rx_I+2 . 5) * (rx_I+2 .5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp (n* ( (rx_I+l .5) * (rx_I+l .5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp (n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0 . 5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp (n* ( (rx_I-l . 5) * (rx_I-l . 5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 .5) + (rx_Q-l .5) * (rx_Q-l . 5) ) ) + 
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exp<n* ( (rx_I-3.5) * (rx_I-3.5) +. (rx_Q-l . 5) * {rx_Q-l . 5) ) ) + 

exp<n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q-3 . 5) * {rx_Q-3 . 5) ) ) + 

exp<n*< (rx_I+2.5)*(rx_I+2.5) + (rx_Q-3 . 5) * <rx_Q-3 . 5) ) ) + 

exp(n* { (rx_I+1.5) * (rx_I+1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp <n* { (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp<n*< (rx_I-1.5) * (rx_I-1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5) ) ) + 

exp(n* ( (rx_I-2 .5) * (rx_I-2 . 5) + (rx_Q-3 . 5) * <rx_Q-3 . 5) ) ) + 

exp<n* { (rx_I-3.5) * (rx_I-3.5) + (rx_Q-3 .5) * (rx_Q-3 . 5) ) ) ) ) ; 

L_d5 = log( (exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( {rx_I+2 .5) * (rx_I+2.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I+l .5) * (rx_I+1.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5) ) ) + 

exp(n* ( (rx_I+0.5) * (rx_I+0.5) + (rx_Q+3 . 5) * (rx_Q+3 . 5 ) ) ) + 

exp(n* ( (rx_I+3 .5) * (rx_I+3.5) + <rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+2 .5) * (rx_I+2.5) + <rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+1.5) *(rx_I+1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp (n* ( (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+2.5) * (rx_I+2 .5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I+1.5) * (rx_I+1.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp (n* ( (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* { (rx_I+3.5) * (rx_I+3.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* ( (rx_I+2.5) * (rx_I+2 . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* { (rx_I+l . 5) * (rx_I+l . 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp (n* ( (rx_I+0 . 5) * (rx_I+0. 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp {n* { (rx_I+3 . 5) * (rx_I+3 . 5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp {n* ( (rx_I+2 . 5) * (rx_I+2 . 5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

; =f exp(n* ( (rx_I+1.5) *(rx_I+i.5) + (rx_Q-0 . 5) * (rx_Q-0 .5) ) ) + 

*0 exp(n* ( (rx_I+0 .5) * (rx_I+0.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

fjj exp(n* ( (rx_I+3.5) * (rx_I+3.5) + (rx_Q-l .5) * (rx_Q-l .5) ) ) + 

exp(n* ( (rx_I+2 .5) * (rx_I+2.5) + (rx_Q-l .5) * (rx_Q-l:5) ) ) + 

]f* exp (n* ( (rx_I + l . 5) * (rx_I+l . 5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

til exp (n* ( (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q-l .5) * (rx_Q-l .5) ) ) + 

exp (n* ( (rx_I+3 . 5) * (rx_I+3 . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

)*l exp (n* ( (rx_I+2 . 5) * (rx_I+2 . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp (n* ( (rx_I + l . 5) * (rx_I+l . 5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

[ s b exp (n* ( (rx_I+0 . 5) * (rx_I+0 . 5) + (rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 

exp(n* ( (rx_I+3 .5) * (rx_I+3.5) + (rx_Q-3 . 5) * ( rx_Q-3 . 5 ) ) ) + 

^ exp(n* ( (rx_I+2.5) * (rx_I+2.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 

O exp (n* ( (rx_I+l .5) * (rx_I+1.5) + (rx_Q-3 . 5) * (rx_Q-3 . 5 ) ) ) + 

p exp (n* ( (rx_I+0 .5) * (rx_I+0.5) + (rx_Q-3 . 5) * (rx_Q-3 .5) ) ) ) / 

^ (exp(n*((rx_I-3.5)*{rx_I-3.5) + (rx_Q-3 . 5) * (rx_Q-3 .5) ) ) + 

Ul exp(n*{(rx_I-2.5)*(rx_I-2.5). + (rx_Q-3 . 5) * (rx_Q-3 .5} ) ) + 

pj exp(n* ( (rx_I-l .5) * (rx_I-1.5) + (rx_Q-3 . 5) * (rx_Q-3 .5) ) ) + 

Si exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-3 . 5) * (rx_Q-3 .5) ) ) + 

exp{n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

j«b exp(n* ( (rx_I-1.5) *(rx_I-1.5) + (rx_Q-2 . 5) * (rx_Q-2 .5) ) ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5) ) ) + 

exp(n* ( (rx_I-3. 5) * (rx_I-3.5) + (rx_Q-2 . 5) * (rx_Q-2 . 5 ) ) ) + 

exp(n* ( (rx_I-3. 5) * (rx_I-3.5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 . 5) + (rx_Q-l . 5) * (rx_Q-l . 5) ) ) + 

. exp(n* ( (rx_I-1.5) * (rx_I-1.5) + (rx__Q-l ,5) * (rx_Q-l .5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q-l .5) * (rx_Q-l .5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + <rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n*( (rx_I-1.5)*(rx_I-1.5) + (rx_Q-0.5) * (rx_Q-0.5) ) ) + 

exp (n* ( (rx_I-2 . 5) * (rx_I-2 . 5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q-0 . 5) * (rx_Q-0 . 5) ) ) + 

exp (n* ( (rx_I-3.5) * (rx_I-3. 5) + (rx_Q+0 . 5) * (rx_Q+0 . 5) ) ) + 

exp(n* ( (rx_I-2.5) *{rx_I-2.5) + (rx_Q+0 . 5) * (rx_Q+0 . 5 ) ) ) + 

exp (n* ( (rx_I-1.5) * (rx_I-1.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) + 

exp (n* ( (rx_I-0.5) * {rx_I-0.5) + (rx_Q+0.5) * (rx_Q+0.5) ) ) + 

exp (n* ( (rx_I-0.5) * <rx_I-0.5) + (rx_Q+l . 5 ) * (rx_Q+l . 5 ) ) ) + 

exp (n* ( (rx_I-1.5) * (rx_I-l,5) + (rx_Q+l . 5) * (rx_Q+l . 5 ) ) ) + 

exp(n* ( (rx_I-2.5) * (rx_I-2.5) + (rx_Q+l . 5) * (rx_Q+l . 5 ) ) ) + 

exp (n* ( (rx_I-3. 5) * (rx_I-3.5) + (rx_Q+l . 5) * (rx_Q+l . 5) ) ) + 

exp(n* ( (rx_I-3.5) * (rx_I-3.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp (n* { (rx_I-2 . 5) * (rx_I-2. 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I-1.5) *(rx_I-1.5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp (n* ( (rx_I-0 . 5) * (rx_I-0. 5) + (rx_Q+2 . 5) * (rx_Q+2 . 5) ) ) + 

exp(n* ( (rx_I-0.5) * (rx_I-0.5) + (rx_Q+3 . 5) * (rx Q+3.5))) + 
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exp(n*{ (rx_I-1.5)* (rx_I-1.5) + <rx_Q+3 . 5) * ( rx_Q+3 . 5) ) ) + 
exp(n* { <rx_I-2.5) * (rx_I-2. 5) + (rx_Q+3 . 5 ) * ( rx_Q+3 . 5) ) ) + 
exp(n* { (rx_I-3.5) * (rx_I-3.5) + (rx_Q+3 . 5 ) * ( rx_Q+3 . 5) ) ) ) ) ; 



Dl_data[i] 


= 


L_ 


_d2; 


ul aataii+±j 




L 


Q J r 


Dl_data [i+2 J 


_ 


l~ 


~d4; 


Dl_data[i+3J 




l] 


~d5; 


Dl_parity [i] 




l" 


"dO; 


Dl_parity [i+1] 




o" 


~0; 


Dl_parity[i+2] 




0 


0; 


Dl_parity [i+3] 




0 


0; 


D2_parity [i] 


=5 


L 


dl; 


D2_parity [i+1] 




o" 


"0; 


D2_parity[i+2] 




0 


0; 


D2_parity[i+3] 




0 


0; 


i = i + 4; 









} 

/* 

* interleave data: 
*/ 

r_ileav {Dl_data, rule); 
#endif 



#ifdef R4 6_64QAM_IQ_Natural_Map 

/* Option2 

* Channel: I = (ul, u2, u3), Q = (u4, u5, u6) defined using natural mapping: 

* 000 001 010 Oil 100 101 110 111 



* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* the 64QAM symbol is defined as: (ul, u2, u3, u4, u5, u6) 

* where: 

* ul = dO 

* u2 = dl 

* u3 = pO parity from ENC__V 

* u4 = d2 

* u5 = d3 

* u6 = qO parity from ENC_H 
* 

*/ 
/* 

* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; i++) 

data_d[i] = data[i] ; 
r_deileava (data_d, rule) ; 

n = (-1.0) / (2 * SIGMA_4 6_64QAM * SIGMA_46_64QAM) ; 

for(i = 0; i < INT_SIZE; ) 
{ 

/* Puncturing patern is: 

* dO, dl, d2, d3, . . . 

* pO, 0, 0, 0, . . . 

* qO, 0, 0, 0,... 
V 

ul = data_d [i] ; 
u2 = data_d[i+l] ; 
u3 = Encl [i] ; 
u4 = data_d [i+2] ; 
u5 = data_d[i+3] ; 
u6 = Enc2 [i] ; 

tx_I = -3.5 + u3 + 2*u2 +4*ul; 
tx_Q = -3.5 + u6 + 2*u5 +4*u4; 

rx_I = tx_I + SIGMA_46_64QAM * gasdev(); 
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rx_Q = tx_Q + SIGMA_46_64QAM * gasdevO; 



log ( (exp (n* 


( (rx 


1-3 


.5) * (rx 


1-3 


.5) ) )+ 


exp (n* 


(rx 


1-2. 


5) * (rx 


1-2. 


5) 


) + 


exp (n* 


(rx 


"i-l. 


5) * (rx 


"i-l. 


5) 


) + 


exp (n* 


(rx_ 


"i-O. 


5) * (rx 


"i-O. 


5) 


))/ 


(exp (n* 


(rx 


"l+3. 


5) * (rx 


"l+3. 


5) 


) + 


exp (n* 


(rx 


1+2. 


5)*(rx 


"l+2. 


5) 


) + 


exp (n* 


(rx 


'i+l. 


5)*(rx 


"i + l. 


5) 


) + 


exp (n* 


(rx 


"i+O. 


5)*(rx 


"i+O. 


5) 


) ) ); 


log ( (exp (n* 


( (rx 


' 1-3 


-5)*(rx 


"l-3 


.5) 


) ) + 


exp (n* 


(rx 


1-2. 


5)*(rx 


1-2. 


5) 


) + 


exp (n* 


(rx 


I+l. 


5) * (rx 


"i+l. 


5) 


) + 


exp (n* 


(rx 


1+0. 


5)*(rx 


"i+O. 


5) 


) )/ 


(exp (n* 


(rx_ 


1+3. 


5)*(rx 


1+3. 


5) 


) + 


exp (n* 


( rx 


1+2. 


5) * (rx 


"l+2. 


5) 


) + 


exp (n* 


(rx 


"i-l. 


5) * (rx 


"i-l. 


5) 


) + 


exp (n* 


(rx 


"i-O. 


5)*(rx 


"i-O. 


5) 


) ) ) ; 


log ( (exp (n* 


( (rx 


' 1-3 


.5)*(rx 


" 1-3 


-5) 


) ) + 


exp (n* 


(rx 


1+2. 


5)*(rx" 


1+2. 


5) 


) + 


exp (n* 


(rx_ 


I-l. 


5)*(rx~ 


"i-l. 


5) 


) + 


exp (n* 


(rx_ 


1+0. 


5)*(rx 


*I+0. 


5) 


))/ 


(exp (n* 


(rx_ 


1+3. 


5) * (rx 


"l+3. 


5) 


) + 


exp (n* 


(rx_ 


1-2. 


5) *(rx 


"l-2. 


5) 


) + 


exp (n* 


(rx_ 


"i + l. 


5) *(rx 


"i + l. 


5) 


) + 


exp (n* 


(rx 


"i-O. 


5) * (rx 


"i-O. 


5) 


) ) ); 



rx_I = rx_Q; 

L_u4 = log( (exp(n* ( (rx_I-3.5) * (rx_I-3.5) ) )+ 



exp (n* 


[ {rx 


1-2. 


5) * (rx_ 


1-2. 


5) 


) + 


exp (n* 


! (rx 


"i-l. 


5} * (rx 


"i-l. 


5) 


) + 


exp (n* 


( (rx_ 


"i-O. 


5) * (rx 


"i-O. 


5) 


) )/ 


(exp (n* 


( (rx_ 


"l+3. 


5) * (rx 


"l+3. 


5) 


) + 


exp (n* 


( (rx_ 


"l+2. 


5)*(rx 


"l+2. 


5) 


) + 


exp (n* 


( (rx_ 


"i + l. 


5)*(rx 


"i + l. 


5) 


) + 


exp (n* 


( (rx 


"i+O. 


5)*(rx 


"i+O. 


5) 


))); 


log ( (exp (n* 


((rx 


"l-3 


.5) * (rx 


" 1-3 


.5) 


)) + 


exp (n* 


((rx 


1-2. 


5)*<rx 


1-2. 


5) 


) + 


exp (n* 


( (rx_ 


"i+l. 


5)*{rx 


"i+l. 


5) 


) + 


exp (n* 


(rx 


"i+O. 


5 ) * ( rx_ 


"i+O. 


5) 


) )/ 


(exp (n* 


(rx 


"l+3. 


5) * (rx 


"l+3. 


5) 


) + 


exp (n* 


( (rx_ 


"l+2. 


5)*(rx 


"l+2. 


5) 


) + 


exp (n* 


'. {rx 


*I-1. 


5)*{rx 


"i-l. 


5) 


) + 


exp (n* 


( (rx" 


"i-O. 


5) * (rx 


"i-O. 


5). 


) ) ); 


log ( (exp (n* 


( (rx. 


" 1-3 


.5) * (rx 


" 1-3 


.5) 


) ) + 


exp (n* 


'. (rx_ 


1+2. 


5) * (rx 


1+2. 


5) 


) + 


exp (n* 


'. (rx 


"i-l. 


5)*(rx" 


"i-l. 


5) 


) + 


exp (n* 


((rx" 


*I+0. 


5)*(rx 


"i+O. 


5) 


))/ 


(exp (n* 


( (rx 


*I+3. 


5) * (rx 


"l+3. 


5) 


) + 


exp (n* 


((rx 


"l-2. 


5) * (rx 


"l-2. 


5) 


) + 


exp (n* 


((rx_ 


"i+l. 


5)*(rx 


"i+l. 


5) 


) + 


exp (n* 


[ (rx_ 


"i-O. 


5)*(rx 


"i-O. 


5) 


) ) ) ; 



Dl_data[i] 




L_ 


ul; 


Dl_data[i+1] 






u2; 


Dl_data[i+2] 




l] 


"u4; 


Dl_data[i+3] 




L_ 


"u5; 


Dl_parity [i] 




L 


u3; 


Dl_parity [i+l] 




o" 


0; 


Dl_parity [i+2] 




0 


0; 


Dl_parity [i+3] 




0 


0; 


D2_parity [i] 




L 


u6; 


D2_parity [i+l] 




o" 


0; 


D2_parity [i+2] 




0 


0; 


D2_parity[i+3] 




0 


0; 


i = i + 4; 









} 

interleave data: 
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*/ 

r_ileav(Dl_data, rule); 
#endif 



#ifdef R4 6_64QAM_IQ_Gray_Map 

/* Optionl: used in "Parallel Concatenated Trellis Coded Modulation" ICC '96 

* Channel: I = (ul, u2, u3), Q = (u4, u5, u6) defined using Gray mapping: 

* ul & u4 are MSBs and u3 & u6 are LSBs : 

* 010 Oil 001 000 100 — 101 — 111 110 

.5 1.5 2.5 3.5 



* 


-3.5 


-2.5 -1.5 -0. 


,5 


0 


* 


where : 








* 


ul = 


dO 






* 


u2 = 


dl 






* 


u3 = 


pO parity from 


ENC_ 


_V 


* 


u4 = 


d2 






★ 


u5 = 


d3 






* 
* 


u6 = 


qO parity from 


ENC_ 


_H 


★ 


INT_SIZE = 


multiple of 4 







n = (-1.0) / (2 * SIGMA_23_8AM * SIGMA_23_8AM) ; 
/* 

* deinterleave data: 

"Z\ for(i = 0; i < INT_SIZE; i++) 

&i data_d[i] = datafi]; 

fi|| r_deileava {data_d, rule); 

yl for(i = 0; i < INT_SIZE; ) 

Q { 

]2'1 /* Puncturing patern is: 

* dO, dl, d2, d3, . . . 
Lb * pO, 0, 0, 0, . . . 

* qO, 0, 0, 0, . . . 
V 

O 

11 ul = data_d[i] ; 

7 j u2 data_d[i+l]; 

UJ u3 = Encl [ij ; 

P tx = 2*ul - 2*u2 + 4*ul*u2 - 1.0 + ( ( ( 2*ul-l ) * (2*u2-l ) ) <0? (u3-0 . 5) : ( 0 . 5-u3 ) ) ; 

iSi rx = tx + SIGMA_23_8AM * gasdev(); 

H L_ul = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 

N exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) / 

(exp(n*(rx+0.5)*(rx+0.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3.5) ) ) ) ; 



L_u2 « log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) ) +exp (n* (rx+0 . 5) *(rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) ) ) ; 



L_u3 = log( (exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* ( rx-1 . 5 ) * ( rx-1 . 5 ) ) +exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+0 . 5) * (rx+0. 5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) ) ; 

ul = data_d[i+2] ; 

u2 = data_d[i+3] ; 

u3 = Enc2 [i] ; 

tx = 2*ul - 2*u2 + 4*ul*u2 - 1.0 + ( ( (2*ul-l) * (2*u2-l) )<0? (u3-0.5) : (0. 5-u3) ) ; 
rx = tx + SIGMA_23_8AM * gasdev(); 

L_u4 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2 .5) * (rx+2.5) ) +exp(n* (rx+3.5) * (rx+3 .5) ) ) ) ; 



L_u5 = log ( (exp (n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
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exp(n*<rx-2.5)*(rx-2.5) ) +exp (n*'(rx-3. 5) * (rx-3 . 5) ) )/ 
(exp(n* (rx+1 . 5) * (rx+1 . 5) ) +exp (n* (rx+0. 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1. 5) * (rx-1 .5) ) ) ) ; 

L_u6 = log{ (exp{n* (rx+2 .5) * (rx+2.5) ) +exp (n* (rx+1 .5) * (rx+1 .5) ) + 
exp(n* (rx-1.5) * (rx-1 .5) ) +exp(n* (rx-2. 5) * (rx-2 .5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+0. 5) * (rx+0 .5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-3. 5) * (rx-3 .5) ) )') ; 



Dl_data[i] - L_ul; 

Dl_data[i+1] = L_u2; 

Dl_data[i+2] = L_u4; 

Dl_data[i+3] = L_uS; 

Dl_parity[i] = L_u3; 

Dl_parity[i+1] = 0.0; 

Dl_parity [i+2] = 0.0; 

Dl_parity [i+3] = 0.0; 

D2_parity[i] = L_u6; 

D2_parity [i+1] = 0.0; 

D2_parity [i+2] = 0.0; 

D2_parity [i+3] = 0.0; 

i = i + 4; 



/* 

* interleave data: 
*/ 

r_ileav (Dl_data, rule) ; 
#endif 



/*mio*/ 

#ifdef R24_4QAM 
/* 

* Channel: we transmit two 2-AM symbols to emulate a 4-QAM symbol. 

* 2 info bits and 2 parity bits are mapped to 2 4-QAM symbols which 
. * turn are simulated as 4 2-AM symbols to achieve lbit/s/Hz 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_24_4QAM * SIGMA_24_4QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i) ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdevO; 
L_d0 = log ({exp(n* (rx-0.5)* (rx-0.5))) / 

(exp(n*(rx+0.5)*(rx+0.5) ) ) ) ; 
Dl_data[i] = L_d0; 

/* symbol 2 */ 
dO = Enclfi] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdevO; 
L_d0 - log ((exp(n* (rx-0.5)* (rx-0.5))) / 

(exp(n*(rx+0.5) * (rx+0. 5) ) ) ) ; 
Dl_parity[i] = L_d0; 

/* symbol 3 */ 
dO = data [i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdevO; 
L_d0 = log ( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 

(exp(n* (rx+0. 5) * (rx+0. 5) ) ) ) ; 
Dl_data[i+1] = L_d0; 

/* symbol 4 */ 
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dO = Enc2 [i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_24_4QAM * gasdev ( ) ; 
L_dO = log( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
D2_parity [i+1] = L_dO; 
Dl_parity [i+1] = 0.0; 
D2_parity[i] = 0.0; 
i = i+1; 

} 

#endif 
/*mio*/ 

#ifdef R2 6_4QAM 
/* 

* Channel: we transmit two 2-AM symbols to emulate a 4 -QAM symbol. 

* 2 info bits and 4 parity bits are mapped to 3 4 -QAM symbols which in 

* turn are simulated as 6 2-AM symbols to achieve lbit/s/Hz 
★ 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_26_4QAM * SIGMA_2 6_4QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data [i] ; 
tx - dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdev(); 
L_d0 = log ( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 

( exp ( n* { rx+0 . 5 ) * ( rx+0 . 5 ) ) ) ) ; 
Dl_data[i] = L_d0; 

/* symbol 2 */ 
dO = Encl [i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdev(); 
L_d0 = log ( (exp (n* (rx-0.5) * (rx-0.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_parity[i] = L_d0; 

/* symbol 3 */ 
dO = Enc2 [i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdev(); 
L_d0 = log ( (exp (n* (rx-0 .5) * (rx-0.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
D2_parity[i] = L_d0; 

/* symbol 4 */ 
dO = data [ i+1 ] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdev(); 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+1] = L_d0; 

/*■ symbol 5 */ 
dO = Encl [i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdev(); 
L_d0 - log( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_parity [i+1] = L_d0; 

/* symbol 6 */ 
dO = Enc2[i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_26_4QAM * gasdev(); 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
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D2_parity [i+1] = L_d0; 
i = i+1; 

} 

#endif 
/*mio*/ 

#ifdef R4 6_8QAM 
/* 

* I dimension: 

* dO is MSB and dl is LSB in a 4-AM: <d0, dl) : 

* 01 00 10 11 

* -1.5 -0.5 0.5 1.5 

* Q dimension: 

* dO is MSB in a 2-AM: (dO) : 

* 0 1 

* -0.5 0.5 
* 

* We transmit one 4A-M symbol and one 2-AM symbol to emulate a 32QAM 

* 4 info bits and 2 parity bits are mapped to 2 8 QAM symbols. 
* 

* INT_SIZE to be a multiple of 4 
*/ 

ford = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1: 4AM */ 
dO = data[i] ; 
dl = Encl[i] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_4 6_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_4 6_8QAM * SIGMA_4AM_of_4 6_8QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5)* (rx-1.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* ( rx+1 . 5) * (rx+1.5) ) ) ) ; 
L_dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i] = L_d0; 
Dl_parity[i] = L_dl; 

/* symbol 2: 2AM */ 
dO = data [i+1] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of__4 6_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_2AM_of_4 6_8QAM * SIGMA_2AM_of_4 6_8QAM) ; 
L_d0 =* log ( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+1] = L_d0; 

/* symbol 3: 4AM */ 
dO = datad+2] ; 
dl = Enc2[i+2] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_4 6_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_4 6_8QAM * SIGMA_4AM_of_46_8QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) ) ) ; 
L_dl = log((exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) ) ) ; 
Dl_data[i+2] = L_d0; 
D2_parity[i+2] = L_dl; 

/* symbol 2: 4AM */ 
dO = datad+3] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_4 6_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_2AM_of_46_8QAM * SIGMA_2AM_of_46_8QAM) ; 

L__d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) ) ) ) ; 

Dl_data[i+3] = L_d0; 
Dl_parity [i+1 J = 0.0; 
Dl_parity [i+2] « 0.0; 
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Dl_parity [i+3] = 0.0; 

D2_parity[i] = 0.0; 

D2_parity[i+1] = 0.0; 

D2_parity[i+3] = 0.0; 

i = i+3; 

} 

#endif 
/*mio*/ 

iifdef R26_8QAM 
/* 

* I dimension: 

* dO is MSB and dl is LSB in a 4-AM: (dO, dl) : 

* ' 01 00 10 11 

* -1.5 -0.5 0.5 1.5 

* Q dimension: 

* dO is MSB .in a 2-AM: (dO) : 

* 0 1 

* -0.5 0.5 

* 

* We transmit one 4A-M symbol and one 2-AM symbol to emulate a 8 QAM symbol. 

* 2 info bits and 4 parity bits are mapped to 2 8 QAM symbols. 
* 

* INT_SIZE to be a multiple of 2 
*/ 

ford = 0; i < INT_SIZE; i++) 
1*0 /* symbol 1: 4AM */ 



'Zl d0 = datafi] ; 

U* dl = Encl[i] ; 

p tx - dO - dl + 2*d0*dl - 0.5; 

h\ rx = tx + SIGMA_4AM_of_2 6_8QAM * gasdev(); 

^ a n (-1.0) / (2 * S I GMA_4 AM_o f _2 6_8 QAM * SIGMA_4AM_of_2 6_8QAM) ; 

|w= L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 .5) * (rx-1 .5) ) ) / 

(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1. 5) * (rx+1.5) ) ) ) ; 

:1„ L_dl = log( (exp(n* (rx+1.5)* (rx+1.5) )+exp(n* (rx-1. 5)* (rx-1. 5) ) ) / 
U (exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) ) ) ; 

-11 Dl_data[i] = L_d0; 

j- 1 Dl_parity[i] = L_dl; 

O /* symbol 2: 2AM */ 

]"* dO = Enc2[i]; 

!== tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_26_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_2AM_of_26_8QAM * SIGMA_2AM_of_26_8QAM) ; 
L_d0 = log ( (exp(n* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) ) ) ) ; 
D2_parity[i] = L_d0; 

/* symbol 3: 4AM */ 

dO = Encl[i+1] ; 
dl = Enc2[i+1] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_26_8QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_4AM_of_26_8QAM * SIGMA_4AM_of_26_8QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1. 5) * (rx-1 .5) ) ) / 

(exp(n* (rx+0.5,) * (rx+0.5) ) +exp (n* ( rx+1 . 5) * (rx+1.5) ) ) ) ; 
L_dl = log( (exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx-1. 5)* (rx-1. 5) ) ) / 

(exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) ) ) ; 
Dl_parity [i+1] = L_d0; 
D2_parity[i+1] = L_dl; 

/* symbol 4: 2AM */ 

dO = data [i+1] ; 
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tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_26_8QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_2 AM_o f _2 6_8 QAM * SIGMA_2AM_of_2 6_8QAM) ; 
L_d0 = log( (exp(n* {rx-0. 5) * (rx-0.5) ) j / 
(exp<n* (rx+0.5) * (rx+0.5) ) ) ) ; 
Dl_data[i+1] = L_d0; 
i=i+l; 
} 

#endif 
/*mio*/ 

#ifdef R13_8QAM 
/* 

* I dimension: 

* dO is MSB and dl is LSB in a 4-AM: (d0,dl) : 

* 01 00— -10 11 

* -1.5 -0.5 0.5 1.5 

* Q dimension: 

* dO is MSB in a 2-AM: (dO) : 

* 0 1 

* -0.5 0.5 



* We transmit one 4A-M symbol and one 2-AM symbol to emulate a 8QAM symbol. 

* 1 info bits and 2 parity bits are mapped to 1 8 QAM symbols. 
★ 

* INT_SIZE to be a multiple of 1 
*/ 

for(i = 0; i < INT_SIZE; 
{ 

/* symbol 1: 4AM */ 

dO = data [i] ; 
dl = Enclti] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of_13_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_13_8QAM * SIGMA_4AM_of_13_8QAM) ; 
L_d0 = log( (exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) ) / 

(exp(n* (rx+0 .5) * (rx+0.5) ) +exp (n* (rx+1 . 5) * (rx+1 .5) ) ) ) ; 
L_dl = log((exp(n*(rx+1.5)*{rx+1.5))+exp(n*(rx-1.5)*(rx-1.5))) / 

(exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
' Dl_data[i] = L_d0; 
Dl_parity[i] = L_dl; 

/* symbol 2: 2AM */ 

dO = Enc2[i] ; 
tx = dO - 0.5; 

rx = tx + SIGMA_2AM_of_13_8QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_2AM_of_13_8QAM * SIGMA_2AM_of_13_8QAM) ; 
L_d0 = log( (expCn* (rx-0.5) * (rx-0.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) ) ) ; 
D2_parity[i] = L_d0; 

} 

#endif 
/*mio*/ 

#ifdef R412_16QAM 
/* 

* Channel: we transmit two 4-AM symbols to emulate a 16-QAM symbol. 

* 4 info bits and 8 parity bits are mapped to 3 16-QAM symbols which in 

* turn are simulated as 6 4-AM symbols to achieve 3bit/s/Hz 

* dO is MSB and dl is LSB in a 4-AM:(dO,dl) = 01 00-- 1 --10 11 

* -1.5 -0.5 0.5 1.5 

* INT_SIZE to be a multiple of 4 
V 

n => (-1.0) / (2 * SIGMA_412_16QAM * SIGMA_412_16QAM) ; 
for(i = 0; i < INT SIZE; i++) 
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/* symbol 1 */ 
dO = data[i] ; 
dl = Encl [i] ; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log( (exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3) * (rx-3) ) ) / 
<exp(n* (rx+1) * (rx+1) ) +exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log{ (exp(n* (rx+3) * (rx+3) )+exp<n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i] = L_d0; 

Dl_parity[i] = L_dl; 

/* symbol 2 */ 
dO = data[i+l] ; 
dl = Enclfi+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log( (exp<n* (rx-1) * (rx-1) ) +exp (n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log( (exp(n* (rx+3) * (rx+3) ) +exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i+1] = L_d0; 

Dl_parity[i+1] = L_dl; 



/* symbol 3 */ 
dO = Enc2 [i] ; 
O dl = Enc2 [i+1] ; 



tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log( (exp(n* (rx-1) * (rx-1) ) +exp(n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx+1) * (rx+1) ) +exp (n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log( (exp(n* (rx+3) * (rx+3) ) +exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 

D2_parity[i] = L_d0; 

D2_parity[i+1] = L_dl; 

/* symbol 4 */ 
dO = data [i+2]; 
dl - Encl [i+2]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log( (exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log( (exp(n* (rx+3) * (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx-1) * (rx-1) )+exp<n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i+2] = L_d0; 

Dl_parity [i+2] « L_dl; 

/* symbol 5 */ 
dO = Enc2[i+2); 
dl = Enc2[i+3]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log( (exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log( <exp(n* (rx+3) * (rx+3) )+exp(n* (rx-3)* (rx-3) ) ) / 
(exp (n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 

D2_parity [i+2] = L_d0; 

D2_parity [i+3] - L_dl; 

/* symbol 6 */ 
dO = data [i+3]; 
dl = Encl [i+3]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 

rx = tx + SIGMA_412_16QAM * gasdevO; 

L_d0 = log((exp(n*(rx-l)*(rx-l))+exp(n*(rx-3)*(rx-3))) / 
(exp (n* (rx+1) * (rx+1) ) +exp (n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log( (exp(n* (rx+3)* (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx-1) * (rx-1) ) +exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl data [i+3] = L dO; 
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Disparity [i+3] = L_dl; 
i = i+3; 

} 

#endif 
/*mio*/ 

#ifdef R515_32QAM 
/* 

* I dimension: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl, d2 ) : 

* 010 — 011 — 001 000 — 100—101 111 — -110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* Q dimension: 

* dO is MSB and dl is LSB in a 4-AM: (dO, dl ) : 

* 01 00 10 11 

. * -1.5 -0.5 0.5 1.5 

* We transmit one 8AM symbol and one 4AM symbol to emulate a 32QAM symbol. 

* 5 info bits and 10 parity bits are mapped to 3 32QAM symbols. 

* INT_SIZE to be a multiple of 5 
*/ 

for(i = 0; i < INT_SIZE; i++) 
{ 

P /* symbol 1: 8AM */ 

'f\ d0 ° data[i] ; 

dl - Encl[i]; 

d2 = Enc2[i] ; 

r 3 tx « 2*'d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0. 5) : (0.5-d2) ) ; 

tx + SIGMA_8AM_of_515_32QAM * gasdevO; 

(-1.0) / (2 * SIGMA_8AM_of_515_32QAM * SIGMA_8AM_of_515_32QAM) ; 
log( (exp(n* (rx-0 .5) * (rx-0 .5) ) +exp (n* (rx-1 .5) * (rx-1.5) ) + 
exp(n* (rx-2. 5) * (rx-2.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp (n* (rx+0. 5) * (rx+0. 5) ) +exp(n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp(n* (rx+2. 5) * (rx+2.5) ) +exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

log ( { exp (n* { rx+3 . 5 ) * ( rx+3 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+0 . 5) * ( rx+0 . 5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-1 . 5) * ( rx-1 . 5) ) ) ) ; 

log( (exp (n* (rx+2.5) * (rx+2 .5) ) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+0 . 5) * ( rx+0 . 5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) ) ) ; 
Dl_data[i] = L_d0; 

Dl_parity[i] = L_dl; 

D2_parity[i] = L_d2; 

/* symbol 2: 4AM */ 
dO = datafi+1] ; 
dl = Encl[i+1] ; 

tx = dO - dl + 2*d0*dl - 0.5; 
rx = tx + S I GMA_4 AM_o f _5 1 5_3 2 QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_4AM_of_515_32QAM * SIGMA_4AM_of_515_32QAM) ; 
L_d0 = log( (exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-1 .5) * (rx-1 .5) ) ) / 
(exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1 .5) * (rx+1 . 5) ) ) ) ; 
L_dl = log( (exp(n* (rx+1 . 5) * (rx+1. 5) )+exp(n* (rx-1.5) * (rx-1 .5) ) ) / 
(exp(n* (rx-0. 5) * (rx-0. 5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) ) ) ; 
Dl_data[i+1] = L_d0; 
D2_parity[i+1] = L_dl; 

/* symbol 3: 8AM */ 

dO = data[i+2] ; 

dl = Encl[i+2] ; 

d2 = Enc2[i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l ) * (2*dl-l ) ) <0? (d2-0 . 5) : ( 0 . 5-d2 ) ) ; 
rx = tx + SIGMA_8AM_of_515_32QAM * gasdevO; 



ill 



rx 

n = 
L dO 



L dl = 



L d2 
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n = (-1.0) / (2 * SIGMA_8AM_of_515_32QAM * SIGMA_8AM_of_515_32QAM) ; 
L_d0 = log ( (exp(n* (rx-0 .5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1 .5) ) + 

exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3.5) * (rx-3 . 5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 

exp(n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5 ) ) ) ) ; 

L_dl = log( (exp(n*(rx+3.5)*(rx+3.5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5 ) ) + 
exp<n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
(exp(n* (rx+1 .5) * (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5)* (rx-0. 5) )+exp(n* (rx-1 . 5) * (rx-1 . 5 ) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5 ) ) + 
exp (n* (rx-1. 5)* (rx-1.5) ) +exp(n* (rx-2 . 5) * (rx-2 . 5 ) ) ) / 
(exp (n* (rx+3. 5) * (rx+3. 5) ) +exp(n* (rx+0 . 5) * (rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 
Dl_data[i+2] = L_d0; 
Dl_parity[i+2] = L_dl; 

D2_parity [i+1] = L_d2; 

/* symbol 4: 4AM */ 
dO = data[i+33 ; 
dl = Enc2 [i+2] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of 515_32QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_4 AM_o f _5 1 5_3 2 QAM * SIGMA_4AM_of_515_32QAM) ; 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5 ) ) ) / 
(exp (n* (rx+0. 5) * (rx+0. 5) ) +exp(n* (rx+1 .5) * (rx+1. 5) ) ) ) ; 
□ L_dl = log( (exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx-1.5) * (rx-1.5) ) ) / 

,fi ( exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx+0. 5) * (rx+0. 5) ) ) ) ; 

^- Dl_data[i+3] = L_d0; 

D2_parity[i+2] = L_dl; 

r™ 

]SI /* symbol 5: 8AM */ 

dO data[i+4] ; 

Q dl = Encl[i+3] ; 

yfl d2 = Enc2[i+3] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( ( 2*d0-l ) * (2*dl-l ) ) <0? (d2-0 . 5 ) : ( 0 . 5-d2 ) ) ; 
I** rx = tx + SIGMA_8AM_of_515_32QAM * gasdev(); 

n (-1.0) / (2 * SIGMA_8AM_of_515_32QAM * SIGMA_8AM_of_515_32QAM) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5)* (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) )/ 
:|" ( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 

i". i exp (n* (rx+2.5) * (rx+2.5) ) +exp(n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 

P L_dl = log ( (exp(n* (rx+3 .5) * (rx+3. 5) ) +exp(n* (rx+2.5) * (rx+2 . 5) ) + 

e" r H exp (n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 

l aT (exp(n* (rx+1. 5) * (rx+1 . 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 

I— exp(n* (rx-0.5) * (rx-0 . 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) ) ) ; 

L_d2 = log ( (exp (n* (rx+2 .5) * (rx+2 .5) ) +exp (n* (rx+1 .5) * (rx+1 .5) ) + 
exp(n* (rx-1.5) * (rx-1.5) ) +exp(n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp(n* (rx+3. 5) * (rx+3. 5) ) +exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp(n* (rx-0. 5) * (rx-0. 5) ) +exp(n* (rx-3.5) * (rx-3. 5) ) ) ) ; 
Dl_data[i+4] = L_d0; 
Dl_parity[i+3] = L_dl; 

D2_parity [i+3] = L_d2; 

/* symbol 4: 4AM */ 
dO = Encl [i+4] ; 
dl = Enc2 [i+4] ; 

tx = dO - dl + 2*d0*dl - 0.5; 

rx = tx + SIGMA_4AM_of 515_32QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_4AM_of_515_32QAM * SIGMA_4AM_of_515_32QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) / 

(exp (n* (rx+0. 5) * (rx+0. 5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) ) ) ; 
L_dl = log( (exp(n* (rx+1. 5) * (rx+1. 5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) / 

(exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) ) ) ; 
Dl_parity [i+4] = L_d0; 
D2_parity[i+4] = L_dl; 

i = i+4; 
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} 

#endif 



/*mio*/ 

#ifdef R2 6_64QAM 
/* 

* Channel : 

* dO is MSB and d2 is LSB in 8AM: (dO, dl, d2) : 

* 010— -Oil — -001 — -000 — 100 — 101 — 111 — -110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

/* 

* Channel: we transmit two 8AM symbols to emulate a 64QAM symbol. 

* 2 info bits and 4 parity bits are mapped to 1 64QAM symbols which in 

* turn are simulated as 2 8AM symbols to achieve 2bit/s/Hz. 
★ 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_26_64QAM * SIGMA_26_64QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 



n 



d0 = datafi]; 
dl = Encl[i]; 

d2 = Enc2 [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( { (2*d0-l) * (2*dl-l) ) <0? (d2-0. 5) : (0 . 5-d2) ) j 
rx = tx + SIGMA_26_64QAM * gasdev(); 



ifj L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 

^ exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 

^* (exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 . 5) * ( rx+1 . 5 ) ) + 

:f~ exp(n* (rx+2 .5) * (rx+2 .5) ) +exp(n* (rx+3 . 5) * ( rx+3 . 5) ) ) ) ; 

&i 

:* L_dl = log{ (exp(n* (rx+3. 5) * (rx+3. 5) ) +exp(n* (rx+2. 5) * (rx+2. 5) ) + 

O exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* ( rx-3 . 5) * ( rx-3 . 5 ) ) ) / 

j'J| (exp(n* (rx+1 .5) * (rx+1 .5) ) +exp (n* ( rx+0 . 5) * ( rx+0 . 5 ) ) + 

r\ exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 .5) * (rx-1 .5) ) ) ) ; 

si L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 

Pi exp (n* (rx-1. 5) * (rx-1. 5) ) +exp(n* (rx-2 .5) * (rx-2. 5) ) ) / 

'% (exp (n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 

«fe exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 

hi Dl_data[i] = L_d0; 

"^l Dl_parity[i] = L_dl; 

^:- J D2_parity[i] = L d2; 

: • /* symbol 2 */ 

d0 = data[i+l] ; 
dl - Encl[i+1]; 

d2 = Enc2[i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? {d2-0. 5) : (0 . 5-d2) ) , 
rx = tx + SIGMA_26_64QAM * gasdev ( ) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n*(rx-2.5)* (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5 ) ) )/ 
(exp (n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx+2. 5)* (rx+2. 5) )+exp(n* (rx+3 .5) * (rx+3 .5) ) ) ) ; 



L_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+2. 5) * (rx+2. 5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp (n*( rx+1. 5)* (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0 .5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 .5) * (rx-1 . 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp (n* (rx-1. 5) * (rx-1. 5) ) +exp (n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp (n* (rx+3 .5) * (rx+3. 5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp (n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl_data[i+1] = L_d0; 

Dl_parity[i+1] = L_dl; 
D2_parity [i+1] = L_d2; 
i = i+1; 
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} 

#endif 
/*mio*/ 

#ifdef R36__64QAM 
/* 

* Channel: 

* dO is MSB and d2 is LSB in 8AM: (dO, dl, d2 ) : 

* 010— Oil — 001— 000 — -100— -101 — 111 — 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

/* 

* Channel: we transmit two 8AM symbols to emulate a 64 QAM symbol. 

* 6 info bits and 6 parity bits are mapped to 2 64 QAM symbols which in 

* turn are simulated as 4 8AM symbols to achieve 2bit/s/Hz. 
* 

* INT_SIZE to be a multiple of 6 
*/ 

n = (-1.0) / (2 * SIGMA_36_64QAM * SIGMA_36_64QAM) ; 
for(i = 0; i < INT_SIZE; 
{ 

/* symbol 1 */ 

dO = data [i] ; 
dl = data[i+l] ; 
d2 - Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0.5) : (0.5-d2) ) ; 
Cl rx = tx + SIGMA_36_64QAM * gasdev(); 

k f% L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 

exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3. 5) * {rx-3. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp { n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 

L_dl - log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 

exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3. 5) ) )/ . 
(exp(n* (rx+1.5) * (rx+1.5) ) +exp (n* (rx+0 . 5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+1.5)* (rx+1.5) ) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2.5) * (rx-2.5) ) ) / 
(exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 
Dl_data[i] = L_d0; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 



ST 



CJ 



/* symbol 2 */ 

dO = data[i+2] ; 
dl = Encl[i+2] ; 

d2 - Enc2[i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2 ) ) j 
rx = tx + SIGMA_36_64QAM * gasdevO; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) ) / 
(exptn* (rx+0.5)* (rx+0.5) )+exp(n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) ) ) ; 

L_dl = log( (exptn* (rx+3. 5) * (rx+3. 5) ) +exp(n* (rx+2. 5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3 .5) * (rx-3 .5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0 . 5) * (rx+0 .5) ) + 
exptn* (rx-0.5) * (rx-0 . 5) ) +exp (n* (rx-1.5) * (rx-1.5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+2. 5) * (rx+2. 5) ) +exp(n* (rx+1.5) * (rx+1 .5) ) + 
exp(n* (rx-1.5)* (rx-1.5) ) +exp (n* (rx-2 . 5) * ( rx-2 . 5 ) ) )/ 
(exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0 . 5) ) +exp (n* (rx-3. 5) * (rx-3. 5) ) ) ) ; 

Dl_data[i+2] = L_d0; 

Dl_parity[i+2] =' L_dl; 

D2_parity [i+1] = L_d2; 
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/* symbol 3 */ 



dO = datati+3]; . 
dl = data[i+4] ; 

d2 = Enc2 [i+3] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l ) * (2*dl-l ) ) <0? (d2-0 . 5 ) : (0 . 5-d2 ) ) 
rx = tx + SIGMA_36_64QAM * gasdev{); 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* ( rx-3 . 5) * (rx-3.5) ) ) / 
(exp(n* (rx+0 .5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 



L_dl = log{ (expfn* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )-+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) ) ) ; 



L_d2 = log( (exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1.5) * (rx-1.5) ) +exp (n* (rx-2 .5) * (rx-2. 5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+0 .5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) ) ; 
Dl_data[i+3] = L_d0; 

Dl_data[i+4] = L_dl; 

D2_parity[i+3] = L_d2; 

/* symbol' 2 */ 



» — 

□ 



L fi 



dl 



+ (((2*d0-l)*(2*dl-l))<0?(d2-0.5) : (0.5-d2); 



dO = data[i+5] ; 

= Encl[i+4] ; 
d2 = Enc2[i+5] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 
= tx + SIGMA_36_64QAM * gasdev(); 
L_d0 = log{ (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0, 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3.5) * (rx+3.5) ) ) ) ; 



L dl 



log( (exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1.5) * (rx+1 . 5) ) +exp (n* (rx+0 .5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) ) ) ; 



L_d2 = log ( (exp (n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+1 
exp(n* (rx-1.5) * (rx-1.5) ) +exp (n* (rx-2 . 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+0 . 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3 . 
= L_d0; 
= L_dl; 
= L_d2; 
= 0.0, 



,5)*(rx+1.5)) -+ 
5)*(rx-2.5)))/ 
5)*(rx+0.5)) + 
5)*(rx-3.5)))); 



Dl_data[i+5] 
Dl_parity[i+4] 
D2_parity[i+5] 
D2_parity [i] 
Dl_parity [i+1] 
D2_parity [i+2] 
Dl_parity [i+3] 
D2_parity [i+4] 
Dl_parity [i+5] 
i = i+5; 

} 



#endif 



/*mio*/ 

#ifdef R721_128QAM 
/* 

* Q dimension: 

* dO is MSB and d2 is LSB in 8-AM: (d0,dl,d2) : 

* 010—011 001 000---100 101 111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* I dimension: 

* dO is MSB and d3 is LSB in 16AM: (dO, dl , d2, d3) : 
* 

* 0010— 0011— 0001 — -0000— -0100— 0101-— 0111— 0110 

* -7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 
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1010— 1011 — 1001— -1000 — 1100 — 1101- 
7.5 6.5 5.5 4.5 3.5 2.5 



-1111 — 1110 
1.5 0.5 



INT_SIZE to be a multiple of 7 



□ 



&-J 



*/ 

for(i = 0; 
{ 



i < INT SIZE; 



(2*dl-l) )<0?(d2-0.5) : (0.5-d2) ) ; 



/* symbol 1 Q dimension: 8AM */ 

dO = data[i+2] ; 
dl *= Encl [i+1] ; 

d2 = Enc2[i+1); 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( { (2*d0-l) 
rx = tx + SIGMA_8AM_of_721_128QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_8AM_of_721_128QAM * SIGMA_8AM_of_721_128QAM) , 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 

exp(n* (rx-2.5) * (rx-2 .5) )+exp(n* (rx-3 . 5) * (rx-3 ,5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1 . 5) * { rx+1 . 5) ) + 

exp(n* (rx+2.5)* (rx+2.5) )+exp(n* (r'x+3.5) * (rx+3 .5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) )/ 
(exp(n* (rx+1. 5) *(rx+1.5) )+exp(n* (rx+0. 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1 . 5) * (rx-1 . 5) ) ) ) ; 



.5) * (rx+2.5) )+exp(n* (rx+1 . 5) * (rx+1 . 5) ) + 
5)* (rx-1. 5) )+exp(n* (rx^2. 5)* (rx-2.5) ) )/ 
5) * (rx+3. 5) )+exp(n* (rx+0. 5) * (rx+0.5) ) + 
5) * (rx-0.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) ) ) ; 



L_d2 = log( (exp (n* (rx+2 
exp (n* (rx-1. 
(exp (n* (rx+3 . 
exp (n* (rx-0 . 
Dl_data[i+2] = L_d0; 

Dl_parity[i+1] = L_dl; 

D2_parity[i+1] = L_d2; 

/* symbol 2 I dimension: 16AM */ 

dO = datati) ; 
dl = data [i+1] ; 
d2 = Enclfi] ; 

d3 = Enc2 [i] ; 

tx - 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 ,5-d3) ) ; 
tx = (dO « 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_16AM_of_721_128QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_16AM_of_721_128QAM * SIGMA_16AM_of_721_128QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) .+ 



exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

_dl = log ( (exp {n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp(n* 
exp (n* 
exp(n* 

_d2 = log( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 



rx-2.5) * (rx-2.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) + 
rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) / 
rx+0.5)* (rx+0.5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) + 
rx+2.5)* (rx+2.5) )+exp(n* (rx+3. 5)* (rx+3. 5) ) + 
rx+4.5) * (rx+4.5) )+exp(n* (rx+5.5)* (rx+5.5) ) + 
rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7.5) ) ) ) ; 



(rx+3 
rx+1. 
rx-0. 
rx-2. 
rx-4 . 
rx-6 . 
rx+4. 



.5) * (rx+3 
5)*(rx+l. 
5) * (rx-0. 
5) * (rx-2. 
5)*(rx-4. 
5)*(rx-6. 
5) * (rx+4. 



rx+6.5) * (rx+6. 

(rx+7.5) * (rx+7 
rx+1. 5) * (rx+1 . 
rx-0.5)*(rx-0. 
rx-6.5)*(rx-6. 
rx+5.5) * (rx+5. 
rx+3. 5) * (rx+3. 
rx-2.5)* (rx-2. 



.5) ) +exp(n* (rx+2 
5) )+exp(n* (rx+0. 
5) ) +exp (n* (rx-1 . 
5) ) +exp (n* (rx-3 . 
5) ) +exp (n* (rx-5 . 
5) ) +exp (n* (rx-7 . 
5) ) +exp (n* (rx+5. 
5) ) +exp (n* (rx+7 . 



.5)*(rx+2.5)) + 
5)*(rx+0.5)) + 
5)*(rx-1.5)) + 
5)*(rx-3.5)))/ 
5)*(rx-5.5)) + 
5)*(rx-7.5)) + 
5)*(rx+5.5)) + 
5)*(rx+7.5)))); 



.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
5))+exp(n*(rx+0.5)*(rx+0.5)) + 
5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
5) )+exp(n* (rx-7.5)* (rx-7.5) ) )/ 
5) )+exp(n* (rx+4.5) * (rx+4 .5) ) + 
5) )+exp(n*(rx+2.5)*(rx+2.5) ) + 
5))+exp(n*(rx-3.5)*(rx-3.5)) + 
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exp(n* (rx-4 .5) * (rx-4.5) ) +exp(n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log( (exp(n* (rx+5. 5)* (rx+5. 5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp(n* (rx+1.5) * (rx+1.5) ) +exp(n* (rx+2 .5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp <n* (rx-5 . 5) * (rx-5.5) ) ) / 
(exp(n* (rx+7 .5) * (rx+7.5) ) +exp(n* (rx+4 .5) * (rx+4 .5) ) + 
exp (n* (rx+3.5) * (rx+3.5) ) +exp <n* (rx+0 . 5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5) * (rx-4 . 5) ) +exp (n* (rx-7 .5) * (rx-7 .5) ) ) ) ; 

Dl_data[i] = L_dO; 

Dl_data[i+1] =• L_dl; 

Dl_parity[i] = L_d2; 

D2_parity[i] = L_d3; 

/* symbol 3 Q dimension: 8AM'*/ 

dO = data [i+4] ; ' 
dl = Encl [i+4] ; 

d2 = Enc2 [i+3] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l ) ) <0? (d2-0 . 5) : (0 . 5-d2) ) ; 
rx = tx + SIGMA_8AM_of_721_128QAM * gasdev(); 

(-1.0) / (2 * SIGMA_8AM_of_721_128QAM * SIGMA_8AM_of_721_128QAM) ; 
log( (exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-2.5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1.5) * (rx+1 .5) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

log( (exp(n* (rx+3 . 5) * ( rx+3 . 5) ) +exp (n* (rx+2. 5) * (rx+2. 5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1. 5) * (rx-1. 5) ) ) ) ; 

log ( (exp(n* (rx+2. 5) * (rx+2. 5) ) +exp (n* (rx+1 . 5) * (rx+1.5) ) + 
exp(n* (rx-1. 5) * (rx-1 . 5) ) +exp (n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-3 . 5 ) * (rx-3 . 5) ) ) ) ; 
Dl_data[i+4] » L_d0; 

!L Dl_parity [i+4] = L_dl; 

i=.l D2_parity[i+3] = L_d2; 

tJB 

: : H /* symbol 4 I dimension: 16AM */ 

u.l 

O dO = data [i+3] ; 

dl = Encl [i+3] ; 
j^f d2 = Encl[i+2] ; 

!-= d3 = Enc2[i+2] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l ) ) <0? (d3-0 . 5) : (0 . 5-d3) ) ; 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + S I GMA_1 6 AM_o f _7 2 1_1 2 8 QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_16AM_of_721_128QAM * SIGMA_16AM_of_721_128QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-2.5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7 . 5) * (rx-7 . 5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp(n* (rx+2 .5) * (rx+2. 5) }+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp(n* (rx+4 .5) * (rx+4 .5) )+exp(n* (rx+5.5) * (rx+5. 5) ) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7 .5) * (rx+7.5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2 .5) * (rx+2. 5) ) + 
exp (n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0 .5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-2.5) * (rx-2 . 5) ) +exp (n* (rx-3 . 5) * (rx-3 . 5) ) ) / 
(exp (n* (rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-5.5) * (rx-5.5) ) + 
expfn* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7. 5) * (rx-7. 5) ) + 
exp(n* (rx+4 .5) * (rx+4 .5) ) +exp(n* (rx+5. 5) * (rx+5. 5) ) + 
exp (n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7.5) ) ) ) ; 

L_d2 = log((exp(n*(rx+7.5)*(rx+7.5))+exp(n*(rx+6.5)*(rx+6.5)) + 



n 

L dO 



L dl 



L d2 = 
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exp(n* (rx+1 .5) * (rx+1 . 5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0. 5) ) +exp(n* (rx-1 .5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) / 
(exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+4 .5) * (rx+4.5) ) + 
exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5) * (rx-4 . 5) ) +exp (n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log( (exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) / 
(exp(n* (rx+7.5) * (rx+7 .5) ) +exp(n* (rx+4 .5) * (rx+4.5) ) + 
exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4 .5) * (rx-4.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) ) ; 

Dl_data[i+3] = L_dO; 

Dl_parity[i+3] = L_dl; 

Dl_parity [i+2] = L_d2; 

D2_parity[i+2] = L_d3; 

/* symbol 5 Q dimension: 8AM */ 

dO = data [i+6] ; 
dl = Encl [i+6] ; 

d2 = Enc2[i+6J; 

O tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2) ) ; 

k f\ rx = tx + SIGMA_8AM_of_721_128QAM * gasdev(); 

£l n = (-1.0) / (2 * SIGMA_8AM_of_721_128QAM * SIGMA_8AM_of_721_128QAM) ; 

Ul L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 

,11 exp ( n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 

i^l (exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 

exp(n* (rx+2.5) * (rx+2.5) ) +exp (n* (rx+3.5) * (rx+3.5) ) ) ) ; 



L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
. (exp(n* (rx+1. 5) * (rx+1. 5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 .5) * (rx-1.5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx-1.5) * (rx-1 ,5) ) +exp (n* (rx-2 ,5) * (rx-2.5) ) ) / 
(exp(n* (rx+3.5) * (rx+3 . 5) ) +exp (n* (rx+0.5) * (rx+0.5) ) + 
£1 exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3 .5) * (rx-3.5) ) ) ) ; 

M Dl_data[i+6] = L_dO; 

'CI Dljparity [i+6] « L_dl; 

j~[ D2jparity[i+6] = L_d2; 

/* symbol 6 I dimension: 16AM */ 

dO = data[i+5] ; 
dl = Encl[i+5]; 
d2 = Enc2[i+5]; 

d3 = Enc2[i+4] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 . 5-d3) ) ; 

tx = (dO « 0 ? (tx - 4): (4 - tx)); 
rx = tx + SIGMA_16AM_of_721_128QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_16AM_of_721_128QAM * SIGMA_16AM_of_721_128QAM) ; 

L_d0 = log( (exp{n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5) * (rx-4 .5) ) +exp(n* (rx-5 .5) * (rx-5. 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7 .5) * (rx-7.5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1 .5) * (rx+1. 5) ) + 
exp(n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3 .5) * (rx+3.5) ) + 
exp(n* (rx+4.5) * (rx+4 .5) ) +exp (n* (rx+5 .5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7.5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3 .5) * (rx+3. 5) ) +exp(n* (rx+2 . 5) * (rx+2 .5) ) + 
exp(n* (rx+1. 5) * (rx+1. 5) ) +exp (n* (rx+0 .5) * (rx+0. 5) ) + 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 .5) * (rx-3.5) ) ) / 
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(exp(n* (rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7 .5) * (rx-7.5) ) + 
exp(n* (rx+4 .5) * (rx+4.5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp(n* (rx+7 .5) * (rx+7.5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+7. 5)* (rx+7. 5) )+exp(n* (rx+6.5)* (rx+6.5) ) + 
exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp (n* ( rx-0 . 5 ) * ( rx-0 . 5 ) ) +exp (n* ( rx-1 . 5 ) * (rx-1 . 5 ) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7.5) ) ) / 
(exp(n* (rx+5.5) * (rx+5.5) ) +exp (n* (rx+4 . 5) * (rx+4.5) ) + 
exp(n* (rx+3.5) * (rx+3 . 5) ) +exp (n* ( rx+2 . 5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) + 
exp(n* (rx-4 .5) * ( rx-4 . 5) ) +exp (n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log( (exp (n* (rx+5.5) * (rx+5.5) ) +exp(n* (rx+6.5) * (rx+6.5) ) + 
exp(n* (rx+1 .5) * (rx+1 .5) ) +exp(n* (rx+2 .5) * (rx+2.5) ) + 
exp(n* (rx-2 .5) * (rx-2 .5) ) +exp(n* (rx-1 .5) * (rx-1. 5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-5.5) * (rx-5.5) ) ) / 
(exp(n* (rx+7 .5) * (rx+7 .5) ) +exp(n* (rx+4 .5) * (rx+4.5) ) + 
exp (n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n*(rx-0.5) * (rx-0. 5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-7 . 5) * (rx-7.5) ) ) ) ; 

Dl_data[i+5] = L_dO; 

Dl_parity[i+5] = L_dl; 

D2_parity [i+5] = L_d2; 

D2_parity[i+4] = L_d3; 

i = i+6; 

} 

#endif 



/*mio*/ 

#ifdef R824_256QAM 
/* 

* Channel : 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
* 

* 0010— 0011— 0001 — 0000 — 0100— 0101 — 0111 — -0110 

* -7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 

* 1010— 1011 — -1001 — -1000- — 1100— 1101 — 1111 — 1110 

* 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 
* 

* Channel: we transmit two 16AM symbols to emulate a 256QAM symbol. 

* 8 info bits and 16 parity bits are mapped to 3 256QAM symbols which in 

* turn are simulated as 6 16AM symbols to achieve 8/3bit/s/Hz. 
* 

* INT_SIZE to be a multiple of 8 
*/ 

n = (-1.0) / (2 * SIGMA_824_256QAM * SIGMA_824_256QAM) ; 
/* 

* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; 

data_d[i] = data[i]; 
r_deileava (data_d, rule); 

ford = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data_d[i]; 
dl = data_d[i+l]; 
d2 = Encld] ; 

d3 = Enc2[i] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) )<0? (d3-0.5) : (0.5-d3) ) 
tx - (dO == 0 ? (tx - 4): (4 - tx) ) ; 
/* Test the mapping to the 16AM constellation: 
* if (i < 500) 
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* printf ("\n(%d%d%d%d) = %f", (int)dO, <int)dl, (int)d2, (int)d3, tx)j 



= tx + S I GMA_5 8 _2 5 6QAM * gasdevO; 
L_dO = log((exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 
exp (n* (rx-2 .5) * (rx-2.5) )+exp(n* 
exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* 
exp (n* (rx-6 . 5) * (rx-6 . 5) ) +exp (n* 
(exp (n* (rx+0 .5) * (rx+0.5) ) +exp(n* 
exp (n* (rx+2 .5) * (rx+2.5) )+exp(n* 
exp (n* (rx+4 . 5) * ( rx+4 . 5) ) +exp (n* 
exp (n* (rx+6. 5) * (rx+6. 5) ) +exp (n* 



L_dl = log ( (exp (n^ 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 - log ( (exp {n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp(n* 
exp (n* 
exp (n* 

L_d3 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



(rx+3.5) * (rx+3.5) )+exp(n* 
rx+1 .5) * (rx+1 .5) ) +exp (n* 
rx-0.5) * (rx-0.5) ) +exp (n* 
rx-2.5)* (rx-2.5) )+exp(n* 
rx-4 .5) * (rx-4. 5) )+exp(n* 
rx-6. 5) * (rx-6. 5) )+exp(n* 
rx+4. 5)* (rx+4. 5) )+exp(n* 
rx+6. 5) * (rx+6. 5) ) +exp(n* 



{rx+7 
rx+1 . 
rx-0 . 
rx-6 . 
rx+5 . 
rx+3 . 
rx-2. 
rx-4 . 



.5) * (rx+7 
5)*(rx+l. 
5) * (rx-0. 
5) * (rx-6. 
5) * (rx+5. 
5) * (rx+3. 
5)*(rx-2. 
5)*(rx-4. 



(rx+5. 5) * (rx+5 
rx+1 . 5) * (rx+1 . 
rx-2.5)* (rx-2. 
5)*(rx-6. 
5)* (rx+7. 
5) * (rx+3. 
5) * (rx-0. 



rx-6 . 
rx+7 . 
rx+3 . 
rx-0 . 



rx-4 . 5) * (rx-4 . 



. 5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) ) +exp(n* 

.5) ) +exp(n* 
5) ) +exp(n* 
5) ) +exp(n* 
5 ) ) +exp (n* 
5) ) +exp (n* 
5 ) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 



rx-3 
rx-5 
rx-7 



.5) *(rx-1.5) ) + 
5)*(rx-3.5)) + 
5)*(rx-5.5)) + 
5)*(rx-7.5) ) )/ 
rx+1.5)*(rx+1.5) ) + 
rx+3.5) * (rx+3.5) ) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7. 5) * (rx+7. 5) ) ) ) ; 



(rx+2.5) * (rx+2.5) ) + 
rx+0.5)* (rx+0. 5) ) + 
rx-1.5)*(rx-1.5) ) + 
rx-3.5)*(rx-3.5) ) )/ 
rx-5.5)*(rx-5.5) ) + 
rx-7.5)*(rx-7.5) ) + 
rx+5.5)*(rx+5.5) ) + 
rx+7. 5) * (rx+7. 5) ) ) ) ; 

(rx+6.5)*(rx+6.5) ) + 
rx+0.5)* (rx+0.5) ) + 
rx-1.5)* (rx-1.5) ) + 
rx-7.5)*(rx-7.5)))/ 
rx+4. 5)* (rx+4. 5) ) + 
rx+2.5)* (rx+2.5) ) + 
rx-3. 5)* (rx-3. 5) ) + 
rx-5. 5)* (rx-5. 5) ) ) ) ; 



(rx+6 
rx+2 . 
rx-1. 
rx-5 . 
rx+4 . 
rx+0. 
rx-3. 
rx-7. 



.5) * (rx+6. 5) ) 
5)* (rx+2.5) ) 
5)*{rx-1.5)) 
5)* {rx-5 
5)* (rx+4 
5)* (rx+0 
5)* (rx-3 
5)* (rx-7 



.5) 
.5) 
.5) 
.5) 
.5) 



+ 
+ 
+ 

)/ 
+ 
+ 
+ 

) ) ; 



m 

F'" 

UJ 



:=sjf 



Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Dl_parity[i] = L_d2; 

D2_parity[i] = L_d3; 

/* symbol 2 */ 
dO = data_d[i+2] ; 
dl = Encl [i+2] ; 

d2 = Encl [i+1] ; 

d3 = Enc2 [i+1] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + (((2* 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_824_256QAM * gasdev(); 



dl-1)* (2*d2-l) )<0?(d3-0.5) : (0.5-d3) ; 



L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp(n* (rx-4. 5)* (rx-4. 5) )+exp(n* (rx-5 . 5) * (rx-5 . 5) ) + 
exp(n* (rx-6. 5) * (rx-6. 5) )+exp(n* (rx-7. 5) * (rx-7. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 . 5) * (rx+1. 5) ) + 
exp(n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3 . 5 ) * (rx+3.5) ) + 
exp (n* (rx+4 .5) * (rx+4. 5) ) +exp (n* (rx+5 . 5) * (rx+5. 5) ) + 
exp (n* (rx+6. 5) * (rx+6. 5) ) +exp (n* (rx+7 . 5) * (rx+7. 5) ) ) ) ; 



L_dl = log( (exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
exp(n* (rx+1 .5) * (rx+1. 5) ) +exp (n* (rx+0 . 5) * (rx+0.5) ) + 
.5)* (rx-0.5) )+exp(n* (rx-1. 5)* (rx-1.5) ) + 
.5)* (rx-2.5) )+exp(n*(rx-3.5) * (rx-3. 5) ) ) / 



L d2 



exp(n* (rx-0. 
exp (n* (rx-2 . 
(exp (n* (rx-4 . 
exp (n* (rx-6. 
exp (n* (rx+4 . 



5)* (rx-4. 5) )+exp(n*(rx-5.5)* (rx-5. 5) ) 
5) * (rx-6. 5) )+exp(n* (rx-7 . 5) * ( rx-7 . 5) ) 
5) * (rx+4. 5) ) +exp(n* (rx+5 . 5) * ( rx+5 . 5) ) 



exp (n* (rx+6. 5) * (rx+6. 5) )+exp(n* (rx+7. 5) * (rx+7. 5) ) I 
log ( { exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp (n* ( rx+6 . 5 ) * ( rx+6 . 5 ) ) 
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exp(n* (rx+1 . 
exp(n* (rx-0 . 
exp (n* (rx-6 . 
(exp (n* (rx+5 . 
exp (n* (rx+3 . 
exp (n* (rx-2 . 
exp (n* (rx-4 . 



5)* (rx+1. 5) )+exp(n* (rx+0.5) *(rx+0.5) ) + 
5) * (rx-0. 5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
5) * (rx-6. 5) ) +exp(n* (rx-7 .5) * (rx-7.5) ) ) / 
5) * (rx+5. 5) ) +exp(n* (rx+4 .5) * (rx+4 .5) ) + 
5) * (rx+3. 5) ) +exp(n* (rx+2 .5) * (rx+2.5) ) + 
5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
5) * (rx-4. 5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) ) ; 



L_d3 = log( (exp(n* (rx+5. 5) * (rx+5. 5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 



Dl_data[i+2] 
Disparity [i+2] 
Disparity [i+1] 
D2_parity[i+1] 



exp (n* (rx+1 , 
exp (n* (rx-2 , 
exp (n* (rx-6. 
(exp (n* (rx+7 . 
exp(n* (rx+3 , 
exp (n* (rx-0 , 
exp(n* (rx-4 . 
= L_dO; 
= L_dl; 
= L_d2; 
= L d3; 



.5) * (rx+1. 5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
.5) * (rx-2. 5) ) +exp(n* (rx-1 .5) * (rx-1 . 5) ) + 
.5) * (rx-6. 5) ) +exp(n* (rx-5.5) * (rx-5.5) ) ) / 
.5) * (rx+7. 5) ) +exp(n* (rx+4 .5) * (rx+4. 5) ) + 
5)* (rx+3. 5) )+exp(n*(rx+0.5)*(rx+0.5)) + 
5)* (rx-0. 5) )+exp(n* (rx-3.5)* (rx-3.5)) + 
5)* (rx-4. 5) )+exp(n* (rx-7 . 5) * (rx-7 . 5) ) ) ) ; 



*0 

m 



if ■& 



I ~ E 



dO 
dl 
d2 



/* symbol 3 */ 
= data_d[i+3] ; 
= Encl[i+3] ; 
= Enc2 [i+3] ; 
d3 = Encl [i+2] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( 
tx = <d0 == 0 ? {tx - 4): (4 - tx) ) ; 

= tx + SIGMA_824_256QAM * gasdev(); 
L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) 

exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* 

exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* 

exp.(n* (rx-6. 5) * (rx-6. 5) )+exp(n* 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* 

exp(n* (rx+2.5) * (rx+2.5) )+exp(n* 

exp(n* (rx+4. 5) * (rx+4. 5) )+exp(n* 

exp(n* (rx+6.5) * (rx+6.5) )+exp(n* 



L_dl = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 = log( (exp(n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp(n* 

L_d3 = log((exp(n* 



Dl_data[i+3] 
Dl_parity [i+3] 
D2_parity [i+3] 



exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
= L_ 
= L_dl 
= L d2 



(2*dl-l)*(2*d2-l) )<0?(d3-0.5) : (0.5-d3) ) , 



+ 

rx-3.5) * (rx-3.5) ) + 
rx-5.5) * (rx-5.5) ) + 
rx-7.5)*(rx-7.5) ) )/ 
rx+1.5)*(rx+1.5) ) + 
rx+3. 5) * (rx+3. 5) ) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7. 5) * (rx+7. 5))) ) ; 



(rx+3.5)*(rx+3 
rx+1. 5) * (rx+1. 
rx-0. 5) * (rx-0. 
rx-2. 5) * (rx-2. 
rx-4 .5) * (rx-4 . 
rx-6.5)*(rx-6. 
rx+4 .5) * (rx+4 . 
rx+6.5) * (rx+6. 

(rx+7.5)*(rx+7 
rx+1. 5) * (rx+1. 
rx-0. 5) * (rx-0. 
5) * (rx-6. 
5) * (rx+5. 
5) * (rx+3. 
5) * (rx-2. 
5)*(rx-4. 



rx-6 . 
rx+5. 
rx+3. 
rx-2 . 
rx-4 . 



(rx+5.5)*(rx+5 



rx+1. 5) * (rx+1, 
rx-2. 5) * (rx-2, 
rx-6. 5) * (rx-6, 
rx+7. 5) * (rx+7 , 
rx+3. 5) * (rx+3, 
rx-0.5)*(rx-0, 
rx-4.5)*(rx-4, 
dO 



.5) ) +exp(n^ 
, 5) ) +exp (n* 
5) ) +exp <n* 
5) )+exp(n* 
5) )+exp(n* 
5) )+exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 

. 5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) )+exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp(n* 
5) ) +exp (n* 

.5) )+exp(n* 
5) )+exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp(n* 
5) )+exp(n* 



(rx+2.5) * (rx+2.5) ) + 
rx+0.5) * (rx+0.5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-3.5)* (rx-3.5) ) )/ 
rx-5.5) * (rx-5.5) ) + 
rx-7.5) * (rx-7.5) ) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7. 5) * (rx+7. 5) ) ) ) ; 

(rx+6.5) * (rx+6.5) ) + 
rx+0.5) * (rx+0.5) ) + 
rx-1.5)* (rx-1.5) ) +. 
rx-7.5)*(rx-7.5)))/ 
rx+4. 5) * (rx+4. 5) ) + 
rx+2.5)*(rx+2.5)) + 
rx-3.5)* (rx-3.5)) + 
rx-5.5) * (rx-5.5) ) ) ) ; 

(rx+6.5)*(rx+6.5)) + 
rx+2.5)* (rx+2.5)) + 
rx-1.5) * (rx-1.5) ) + 
rx-5.5) * (rx-5.5) ) )/ 
rx+4.5)*(rx+4.5)) + 
rx+0.5) * (rx+0.5) ) + 
rx-3.5)*(rx-3.5)) + 
rx-7.5)* (rx-7.5) ) ) ) ; 



D2_parity [i+2] 



L d3; 



/* symbol 4 */ 

dO = data d[i+4] , 
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dl « data_d[i+5] ; 
d2 = End [i+4] ; 
d3 = Enc2[i+4] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l ) * (2*d2-l ) ) <0? (d3-0 . 5) : (0 . 5-d3 ) ) 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_824_256QAM * gasdev(); 



log ( (exp (n* 


(rx-0 


.5) * (rx-0 


. 5) ) +exp (n* 


(rx-1 


.5) * (rx-1 


.5)) 


+ 


exp (n* 


(rx-2 . 


5)* (rx-2 


5) ) +exp (n* 


;rx-3 . 


5)*(rx-3 


5) ) 


+ 


exp (n* 


rx-4 . 


5) * (rx-4 


5) ) +exp (n* 


|rx-5 . 


5)*(rx-5 


5) ) 


+ 


exp (n* 


[ rx-6 . 


5)*(rx-6 


5) )+exp(n* 


!rx-7 . 


5) * (rx-7 


5)))/ 


(exp (n* 


(rx+0. 


5)*<rx+0.5) )+exp(n* 


(rx+1. 


5)*(rx+l 


5) ) 


+ 


exp (n* 


(rx+2 . 


5)* (rx+2 


5) ) +exp(n* 


(rx+3. 


5)* (rx+3 


5)) 


+ 


exp (n* 


(rx+4 . 


5)* (rx+4 


5) ) +exp (n* 


(rx+5. 


5)* (rx+5 


5) ) 


+ 


exp (n* 


(rx+6. 


5) * (rx+6 


5 ) ) +exp (n* 


(rx+7. 


5) * (rx+7 


5) ) ) 


) ; 


log ( {exp (n* 


(rx+3 


.5) * (rx+3 


. 5) ) +exp (n* 


(rx+2 


.5) * (rx+2 


.5) ) 


+ 


exp (n* 


(rx+1 . 


5) * (rx+1 


5) ) +exp (n* 


(rx+0. 


5)* (rx+0 


5) ) 


+ 


exp (n* 


(rx-0. 


5) * (rx-0 


5) ) +exp (n* 


(rx-1 . 


5) * (rx-1 


5)) 


+ 


exp (n* 


rx-2 . 


5) * (rx-2 


5) ) +exp (n* 


(rx-3 . 


5) * (rx-3 . 


5) ) )/ 


(exp (n* 


rx-4 . 


5) * (rx-4 


5) ) +exp (n* 


(rx-5 . 


5)+(rx-5. 


5)) 


+ 


exp(n* 


rx-6 . 


5) * (rx-6 


5) ) +exp(n* 


(rx-7. 


5)*(rx-7. 


5)) 


+ 


exp (n* 


rx+4 . 


5) * (rx+4 


5) } +exp (n* 


(rx+5. 


5)*(rx+5. 


5) ) 


+ 


exp (n* 


(rx+6. 


5) * (rx+6 


5) } +exp (n* 


(rx+7 . 


5)*(rx+7. 


5) ) ) ) ; 


log ( (exp (n* 


(rx+7 


.5) * (rx+7 


. 5) ) +exp (n* 


(rx+6 


.5) * (rx+6 


.5) ) 


+ 


exp (n* 


(rx+1 . 


5)*(rx+l. 


5) ) +exp(n* 


(rx+0. 


5)*(rx+0. 


5) ) 


+ 


exp (n* 


rx-0 . 


5)*{rx-0. 


5) ) +exp (n* 


(rx-1. 


5)*(rx-l. 


5)) 


+ 


exp(n* 


rx-6 . 


5)*<rx-6. 


5) )+exp(n* 


(rx-7. 


5)*(rx-7. 


5)))/ 


(exp (n* 


rx+5 . 


5)*<rx+5. 


5) ) +exp(n* 


(rx+4 . 


5)* (rx+4. 


5) ) 


+ 


exp (n* 


rx+3 . 


5)*(rx+3. 


5) ) +exp (n* 


rx+2. 


5)* (rx+2. 


5) ) 


+ 


exp (n* 


rx-2. 


5)*(rx-2. 


5) ) +exp (n* 


rx-3 . 


5)* (rx-3. 


5) ) 


+ 


exp (n* 


rx-4 . 


5)*(rx-4. 


5) ) +exp (n* 


rx-5 . 


5) * (rx-5. 


5) ) ) ) ; 


log ( (exp (n* 


(rx+5 


.5) * (rx+5 


. 5 ) ) +exp (n* 


(rx+6 


.5) * (rx+6 


.5) ) 


+ 


exp (n* 


rx+1 . 


5)*(rx+l. 


5) ) +exp (n* 


rx+2 . 


5)*(rx+2. 


5)) 


+ 


exp (n* 


rx-2. 


5)*(rx-2. 


5) ) +exp (n* 


rx-1. 


5)*(rx-l. 


5) ) 


+ 


exp (n* 


rx-6 . 


5)*(rx-6. 


5) ) +exp (n* 


rx-5 . 


5)*(rx-5. 


5) ) )/ 


(exp (n* 


rx+7. 


5)* (rx+7. 


5) ) +exp(n* 


rx+4 . 


5)*(rx+4. 


5) ) 


+ 


exp (n* 


rx+3. 


5)*(rx+3. 


5) ) +exp (n* 


rx+0. 


5)*(rx+0. 


5) ) 


+ 


exp (n* 


rx-0. 


5)*(rx-0. 


5) )+exp(n* 


rx-3. 


5)*(rx-3. 


5) ) 


+ 


exp (n* 


rx-4 . 


5)*(rx-4. 


5) ) +exp (n* 


rx-7. 


5)*(rx-7. 


5))) 


) ; 



Dl_data[i+4] = L_d0; 
Dl_data[i+5] = L_dl; 

Dl_parity [i+4] = L_d2; 

D2_parity [i+4] = L_d3; 

/* symbol 5 */ 

dO ~ data_d[i+6] ; 
dl = Encl [i+6] ; 
d2 = Encl[i+5]; 

d3 - Enc2[i+5] ; 

tx o 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0. 5) : (0 .5-d3) ) 

tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_824_256QAM * gasdevO; 

L_d0 = log ( (exp(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-1. 5) * (rx-1. 5) ) + 
exp(n* (rx-2. 5) * (rx-2 .5) ) +exp (n* (rx-3. 5) * (rx-3 .5) ) + 
exp(n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-5. 5) * (rx-5 .5) ) + ' 
exp(n*(rx-6.5)*(rx-6.5) )+exp(n* (rx-7 . 5) * (rx-7 . 5) ) )/ 
(exp(n* (rx+0. 5) * (rx+0. 5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp(n* (rx+4. 5) * (rx+4. 5) ) +exp (n* (rx+5. 5) * (rx+5 .5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) ) +exp (n* (rx+7. 5) * (rx+7 .5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 

exp(n* (rx+1. 5) * (rx+1. 5) ) +exp(n* (rx+0 . 5) * {rx+0 . 5) ) + 

exp(n* (rx-0. 5) * (rx-0. 5) ) +exp(n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) / 

<exp(n* (rx-4. 5) * (rx-4. 5) )+exp(n* (rx-5. 5) * (rx-5. 5) ) + 

exp(n* (rx-6. 5) * (rx-6. 5) )+exp(n* (rx-7. 5) * (rx-7 .5) ) + 

exp(n* (rx+4 .5) * (rx+4. 5) ) +exp (n* (rx+5 . 5) * (rx+5 . 5) ) + 
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exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7.5) * (rx+7.5) ) ) ) ; 

L_d2 = log( (exp (n* (rx+7 .5) * (rx+7 .5) ) +exp(n* (rx+6.5) * (rx+6.5) ) + 
■ exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) ) / 
<exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+4. 5) * (rx+4. 5) ) + 
exp(n* (rx+3.5) * (rx+3.5) ) +exp (n* ( rx+2 . 5) * (rx+2.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) ) ; 

L_d3 = log( (exp(n* (rx+5.5) * (rx+5 .5) ) +exp (n* (rx+6.5) * (rx+6.5) ) + 
exp ( n* ( rx+ 1 . 5 ) * { rx+1 . 5 ) ) +exp ( n* ( rx+2 . 5 ) * ( rx+2 . 5 ) ) + 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* (rx-1 .5) * (rx-1. 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) / 
( exp (n* ( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) + 
exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4.5) * (rx-4.5) ) +exp (n* (rx-7.5) * (rx-7.5) ) ) ) ; 
Dl_data[i+6] = L_dO; 

Disparity [i+6] = L_dl; 
Dl_parity [i+5] = L_d2; 

D2_parity[i+5] = L_d3; 



m 



U 8 



jSBK 



111 



/* 
dO 
dl 



symbol 4 */ 

= data_d[i+7] ; 

= Enclfi+7] ; 
d2 = Enc2[i+7] ; 
d3 = Enc2 [i+6] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0 .5-d3) ) ; 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 

= tx + SIGMA_824_256QAM * gasdevO; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) 
exp(n*'— ° — ^ ^ 



exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_dl = log( (exp(n^ 
exp (n* 
exp(n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 = log( <exp(n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



L d3 



Dl_data[i+7] 
Dl_parity[i+7] 



log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
= L_d0; 
= L dl 



rx-2.5) * (rx-2.5) )+exp(n* 
rx-4.5) * (rx-4.5) )+exp(n* 
rx-6.5) * (rx-6.5) )+exp(n* 
rx+0.5) * (rx+0.5) ) +exp(n* 
rx+2.5) * (rx+2. 5) ) +exp (n* 
rx+4. 5) * (rx+4. 5) )+exp(n* 
rx+6.5) * (rx+6.5) )+exp(n* 



(rx+3.5)*(rx+3 
rx+1.5) * (rx+1. 
rx-0.5)*(rx-0. 
rx-2.5) * (rx-2. 
rx-4 . 5) * (rx-4 . 
rx-6.5) * (rx-6. 
rx+4. 5) * (rx+4. 
rx+6.5) * (rx+6. 

(rx+7.5) * (rx+7 
rx+1.5) * (rx+1. 
rx-0.5) * (rx-0. 
rx-6.5) * (rx-6 
rx+5.5) * (rx+5 
rx+3.5) * (rx+3 
rx-2.5) * (rx-2 
rx-4 . 5) * (rx-4 



. 5) ) +exp(n* (rx+2 
5) ) +exp(n* (rx+0, 
5) ) +exp (n* (rx-1 . 
5) ) +exp (n* (rx-3 . 
5) ) +exp (n* (rx-5 . 
5) ) +exp (n* (rx-7 . 
5) ) +exp (n* (rx+5 . 
5) ) +exp (n* 



.5) ) +exp {n* 
5) ) +exp (n* 
5 ) ) +exp (n* 
5) ) +exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 



(rx+5 
rx+1. 
rx-2. 
rx-6. 
rx+7. 
rx+3. 
rx-0. 
rx-4 . 



.5)* (rx+5.5) )+exp(n* 
5) * (rx+1.5) )+exp(n* 
5) * (rx-2.5) ) +exp(n* 
5)*(rx-6.5))+exp(n* 
5) * (rx+7.5) ) +exp(n* 
5)*(rx+3.5))+exp(n* 
5)*(rx-0.5))+exp(n* 
5) * (rx-4.5) )+exp(n* 



rx-3.5)*(rx-3.5)) + 
rx-5.5)*(rx-5.5)) + 
rx-7.5)*(rx-7.5)) )/ 
rx+1.5)*(rx+1.5)) + 
rx+3.5)*(rx+3.5)) + 
rx+5.5)*(rx+5.5) ) + 
rx+7. 5)* (rx+7. 5) ) ) ) ; 



.5) * (rx+2 
,5)*(rx+0. 
,5)*(rx-l. 
,5)*(rx-3. 
.5)*(rx-5. 
,5)*(rx-7. 
,5)*(rx+5. 



.5)) + 
5)) + 
5)) + 
5)))/ 
5)) + 
5)) + 
5)) + 



rx+7.5) * (rx+7.5) ) ) ) ; 

(rx+6.5) * (rx+6.5) ) + 
rx+0.5)*(rx+0.5) ) + 
rx-1.5)*(rx-1.5) ) + 
rx-7.5)*(rx-7.5) ) )/ 
rx+4. 5)* (rx+4. 5) ) + 
rx+2.5)*(rx+2.5)) + 
rx-3.5)*(rx-3.5)) + 
rx-5.5)*(rx-5.5)))); 

(rx+6.5) * (rx+6.5) ) + 
rx+2.5) * (rx+2.5) ) + 
rx-1.5)*(rx-1.5) ) + 
rx-5.5)*(rx-5.5) ) )/ 
rx+4. 5)* (rx+4. 5) ) + 
rx+0. 5)* (rx+0. 5)) +' 
rx-3.5)*(rx-3.5)) + 
rx-7.5)*(rx-7.5)))); 



D2_parity[i+7] = L_d2; 
D2_parity[i+6] = L_d3; 
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i+7; 



* interleave data: 
*/ 

r_ileav(Dl_data, rule); 
#endif 

/*mio*/ 

#ifdef R69_512QAM 
/* 



* Interleaver should be a multiple of 3, e.g., 6144 
★ 

* Q dimension: 





* 


dO 


is MSB and d4 is 


LSB in 


32AM: 


<d0,dl,d2,d3,d4) 








* 




00010—00011- 


-00001- 


-00000 


— 00100—00101— 


00111- 


-00110 




* 




-15.5 -14.5 


-13.5 


-12.5 


-11.5 -10.5 


-9.5 


-8.5 




* 




01010—01011- 


-01001- 


-01000 


— 01100—01101 — 


01111- 


-OHIO 




* 




-0.5 -1.5 


-2.5 


-3.5 


-4.5 -5.5 


-6.5 


-7.5 








11010—11011- 


-11001- 


-11000 


— 11100—11101 — 


11111- 


-11110 




* 




0.5 1.5 


2.5 


3.5 


4.5 5.5 


6.5 


7.5 




* 




10010—10011- 


-10001- 


-10000 


— 10100—10101 — 


10111- 


-10110 




* 
* 




15.5 14.5 


13.5 


12.5 


11.5 10.5 


9.5 


8.5 


□ 


* 


I 


dimension: 














* 
★ 


dO 


is MSB and d3 is 


LSB in 


16AM: 


(d0,dl,d2,d3) : 






III 


* 




0010 0011 — 


-0001— 


-0000- 


--0100 0101 


0111 — 


-0110 




★ 
* 




-7.5 -6.5 


-5.5 


-4.5 


-3.5 -2.5 


-1.5 


-0.5 




* 




1010—1011 — 


-1001— 


-1000- 


— 1100—1101 — 


1111 — 


-1110 








7.5 6.5 


5.5 


4.5 


3.5 2.5 


1.5 


0.5 



ii 



* deinterleave data: 
*/ 

for(i = 0; i < INT_SIZE; 

data_d[i] = data[i] ; 
r_deileava (data d, rule); 



i++) 



i < INT SIZE; i++) 



32AM */ 



for(i = 
{ 

/* symbol 1, Q dimension: 
dO - data_d[i] ; 
dl = data_d[i+l]; 
d2 = Encl [i] ; 
d3 = Enc2 [i] ; 
d4 = Encl [i+1] ; 

tx = 2*d2 - 2*d3 + 4*d2*d3 - 1.0 + ( ( (2*d2-l) * (2*d3-l) ) <0? (d4-0 . 5) : (0 . 5-d4) ) ; 

tx - (dl == 0 ? (tx - 4): (4 - tx) ) ; 

tx = (dO «' 0 ? (tx - 8) : (8 - tx) ) ; 
rx = tx + SIGMA_32AM_of_39_512QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_32AM_of_39_512QAM * SIGMA_32AM_of_39_512QAM) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) + 
exp(n*(rx-2.5)*(rx-2.5) )+exp(n* (rx-3 . 5) * (rx-3.5) ) + 
exp(n*(rx-4.5)*(rx-4.5) )+exp(n* (rx-5 .5) * (rx-5.5) ) + 
exp(n*(rx-6.5)*(rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7 . 5) ) + 
exp(n* (rx-8.5)*(rx-8.5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp{n* (rx-10.5)* (rx-10.5) ) +exp (n* (rx-11 . 5) * (rx-11.5) ) + 
exp{n*(rx-12.5)* (rx-12.5) ) +exp (n* (rx-13 . 5) * (rx-13.5) ) + 
exp(n* (rx-14.5)* (rx-14.5) ) +exp(n* (rx-15.5) * (rx-15.5) ) ) / 
(exp(n* (rx+0.5)* (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2 .5)* (rx+2 .5) ) +exp (n* (rx+3.5) * (rx+3.5) ) + 
exp(n* (rx+4 .5) * (rx+4 .5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7.5) ) + 
exp(n* (rx+8 .5) * (rx+8 .5) ) +exp (n* (rx+9.5) * (rx+9.5) ) + 
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rn 



IJ1 



•AS 

o 



exp (n* 
exp (n* 
exp (n* 

L_dl = log ( (exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 = log( (exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d3 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp {n* 
exp (n* 

L_d4 = log ( (exp (rt* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp {n* 



rx+10.5)* (rx+10.5) )+exp(n* (rx+11 . 5) * (rx+11. 5) ) + 
rx+12.5) * (rx+12.5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
rx+14.5)* (rx+14.5) )+exp(n* (rx+15 . 5) * (rx+15 . 5) ) ) ) ; 



(rx-0 
rx-2. 
rx-4 . 
rx-6. 
rx+0 
rx+2. 
rx+4 
rx+6. 
rx-8 . 
rx-10 
rx-12 
rx-14 
rx+8 
rx+10 
rx+12 
rx+14 

(rx+4 . 
rx+6. 
rx+8 . 
rx+10 
rx-4 . 
rx-6 . 
rx-8 . 
rx-10 
rx+0 
rx+2 
rx+12 
rx+14 
rx-0 
rx-2 
rx-12 
rx-14 



+ 
+ 
+ 
+ 
+ 
+ 
+ 



.5) * (rx-0. 5) )+exp(n* (rx-1.5) * (rx-1.5) ) 
5) * (rx-2. 5) ) +exp(n* (rx-3.5) * (rx-3. 5) ) 
5) * (rx-4. 5) )+exp(n* (rx-5.5) * (rx-5.5) ) 
5) * (rx-6. 5) )+exp(n* (rx-7.5) * (rx-7.5) ) 
5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) 
5) * (rx+2.5).)+exp(n* (rx+3 . 5) * (rx+3 . 5) ) 
5) * (rx+4. 5) )+exp(n* (rx+5.5) * (rx+5.5) ) 
5) * (rx+6. 5) )+exp(n* (rx+7.5) * (rx+7.5) ) ) / 
5) * (rx-8 .5) ) +exp(n* (rx-9 . 5) * {rx-9. 5) ) + 
.5)* (rx-10. 5) )+exp(n* (rx-11 . 5) * (rx-11 . 5) ) 
.5) * (rx-12. 5) )+exp(n* (rx-13.5) * (rx-13.5) ) 
.5)* (rx-14. 5) )+exp(n* (rx-15 . 5) * (rx-15 . 5) ) 
5) * (rx+8 .5) ) +exp (n* (rx+9 . 5) * {rx+9. 5) ) + 
.5)* (rx+10.5) )+exp(n* (rx+11. 5)* (rx+11. 5) ) 
.5)* (rx+12.5) )+exp(n* (rx+13.5)* (rx+13.5) ) 
.5)* (rx+14.5) )+exp(n* (rx+15.5)* (rx+15.5) ) ) ) ; 



.5) * (rx+4. 5) )+exp(n* (rx+5.5)* 
5) * (rx+6. 5) ) +exp(n* (rx+7.5) * 
5 ) * ( rx+8 . 5 ) ) +exp (n* ( rx+9 . 5 ) * 
5)* (rx+10.5) )+exp(n* (rx+11. 
5) * (rx-4 .5) ) +exp (n* (rx-5.5) * 
5)* {rx-6. 5) )+exp(n* (rx-7.5)* 
5)* (rx-8. 5) )+exp(n* (rx-9. 5)* 
.5) * (rx-10. 5) )+exp(n* (rx-11. 
5) * (rx+0. 5) ) +exp(n* (rx+1.5) * 
5) * (rx+2. 5) ) +exp(n* (rx+3. 5) * 
5)* (rx+12.5) )+exp(n* (rx+13. 
5) * (rx+14 . 5) ) +exp (n* (rx+15 . 
5) * (rx-0. 5) )+exp(n* (rx-1.5) * 
5) * (rx-2. 5) )+exp(n* (rx-3.5) * 
5)* (rx-12. 5) )+exp(n* (rx-13. 
5)* (rx-14. 5) )+exp(n* (rx-15. 



^ (rx+5.5)) + 
(rx+7.5)) + 
(rx+9. 5)) + 
5) * (rx+11. 5) ) + 
(rx-5.5)) + 
(rx-7.5)) + 
(rx-9. 5)) + 
5)*(rx-11.5)) )/ 
(rx+1.5)) + 
(rx+3. 5)) + 
5) * (rx+13.5) ) + 
5) * (rx+15.5) ) + 
(rx-1.5)) + 
(rx-3.5)) + 
5)*(rx-13.5)) + 
5)*(rx-15.5)))); 



( rx+0 . 5 ) * { rx+0 . 5 ) ) +exp (n* ( rx+1 . 5 ) * 
rx+6 . 5 ) * ( rx+6 . 5 ) ) +exp ( n* ( rx+7 . 5 ) * 
rx+8 .5) * (rx+8. 5) ) +exp(n* (rx+9. 5) * 
rx+14.5)* (rx+14.5) )+exp(n* (rx+15. 
rx-0. 5) * (rx-0. 5) ) +exp(n* (rx-1.5) * 
rx-6. 5)* (rx-6. 5) )+exp(n* (rx-7.5) * 
rx-8. 5) * (rx-8. 5) )+exp(n* (rx-9. 5) * 
rx-14. 5)* (rx-14. 5) )+exp(n* (rx-15. 
rx+4 .5) * (rx+4 .5) ) +exp(n* (rx+5.5) * 
rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+3 . 5 ) * 
rx+12.5)* (rx+12.5) )+exp(n* (rx+13. 
rx+10. 5) * (rx+10.5) ) +exp(n* (rx+11 
rx-4 .5) * (rx-4. 5) )+exp(n* (rx-5.5) 
rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3.5) 
rx-12. 5)* (rx-12. 5) )+exp(n* (rx-13 
rx-10. 5)* (rx-10. 5) )+exp(n* (rx-10. 5)* (rx-10. 5) : 



^(rx+1.5)) + 
(rx+7.5)) + 
(rx+9. 5)) + 
5)*(rx+15.5)) + 
(rx-1.5)) + 
(rx-7.5)) + 
(rx-9. 5)) + 
5)*(rx-15.5)))/ 
(rx+5.5)) + 
(rx+3. 5)) + 
5)* (rx+13.5) ) + 
5)*(rx+11.5)) + 
(rx-5.5)) + 
(rx-3.5)) + 
5)* (rx-13.5) ) 



+ 

) ); 



( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp ( n* ( rx+1 . 5 ) * ( rx+ 1.5)) + 
rx+6. 5)'* (rx+6. 5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
rx+10.5) * (rx+10.5) )+exp(n* (rx+9. 5) * (rx+9. 5) ) + 
rx+14.5) * (rx+14.5) )+exp(n* (rx+13.5)* (rx+13.5) ) + 
rx-2. 5) *(rx-2. 5) )+exp(n* (rx-1.5) * (rx-1.5).) + 
rx-6. 5) * (rx-6. 5) )+exp(n* (rx-5 . 5) * (rx-5 . 5 ) ) + 
rx-10. 5) * (rx-10. 5) )+exp(n* (rx-9. 5) * (rx-9. 5) ) + 
rx-14. 5)* (rx-14. 5) )+exp(n* (rx-13 . 5) * (rx-13 . 5 ) ) ) / 
rx+4 .5) * (rx+4. 5) ) +exp(n* (rx+3 . 5) * (rx+3 . 5) ) + 
rx+7.5) * (rx+7.5) ) +exp(n* (rx+8 . 5) * (rx+8 . 5) ) + 
rx+12.5)* (rx+12.5) )+exp(n* (rx+11. 5) * (rx+11. 5) ) + 
rx+0. 5) * (rx+0. 5) )+exp(n* (rx+15.5) * (rx+15.5) ) + 
rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
rx-7.5) * (rx-7 .5) )+exp(n* (rx-8. 5) * (rx-8. 5) ) + 
rx-12. 5) * (rx-12. 5) ) +exp(n* (rx-11 . 5) * { rx-11 . 5) ) + 
rx-0. 5) * (rx-0. 5) )+exp(n* (rx-15. 5) * (rx-15. 5) ) ) ) ; 
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ill 

y 

pi 



Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 

Disparity [i] = L_d2 

D2_parity[i] = L_d3 

Dl_parity[i+1] = L_d4 

/* symbol 1, I dimension: 16AM */ 
dO = data_d[i+2] ; 
dl = Enclti+2] ; 
d2 = Enc2[i+2] ; 

d3 = Enc2[i+1] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l ) ) <0? (d3-0 . 5 ) : (0 . 5-d3) ) , 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + S I GMA_ 1 6 AM_o f _3 9_5 1 2 QAM * gasdev(); 

n = (-1.0) / (2 * SIGMA_16AM_of_39_512QAM * SIGMA_16AM_of_39_512QAM) ; 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 



exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_dl = log ( (exp (n* 
exp (n* 
exp (n* 
exp(n* 
(exp (n* 
exp(n* 
exp (n* 
exp (n* 

L_d2 = log( (exp(n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d3 - log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* 
rx-4 .5) * (rx-4 .5) ) +exp(n* 
rx-6.5) * (rx-6.5) )+exp(n* 
rx+0 .5) * (rx+0. 5) ) +exp (n* 
rx+2 .5) * (rx+2 .5) ) +exp <n* 
rx+4 .5) * (rx+4 . 5) ) +exp (n* 
rx+6.5) * (rx+6. 5) ) +exp (n* 



(rx+3. 5) * (rx+3 
rx+1. 5) * (rx+1. 
rx-0.5) * (rx-0. 
5)*(rx-2. 
5)* (rx-4. 
5) * (rx-6. 
5)* (rx+4. 
5) * (rx+6. 



rx-2 . 
rx-4 . 
rx-6. 
rx+4 . 
rx+6 . 



(rx+7. 5)* (rx+7 
rx+1 .5) * (rx+1 . 
rx-0 .5) * (rx-0. 
rx-6.5) * (rx-6. 
rx+5 .5) * (rx+5 . 
rx+3 .5) * (rx+3. 
rx-2. 5)* (rx-2. 
rx-4 .5) * (rx-4 . 

(rx+5. 5) * (rx+5 
rx+1 .5) * (rx+1. 
rx-2 .5) * (rx-2. 
rx-6.5) * (rx-6. 
rx+7 .5) * (rx+7. 
rx+3 .5) * (rx+3 . 
rx-0 . 5) * (rx-0 . 
rx-4. 5)> (rx-4. 



. 5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) ) +exp(n* 
5) ) +exp(n* 
5) )+exp(n* 
5) ) +exp (n* 
5 ) ) +exp (n* 

. 5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) )+exp(n* 
5) ) +exp (n* 

, 5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) ) +exp(n* 



rx-3.5)*(rx-3.5)) + 
rx-5.5) * (rx-5.5) ) + 
rx-7.5) * (rx-7.5) ) ) / 
rx+1 .5) * (rx+1.5) ) + 
rx+3.5) * (rx+3.5) ) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7.5)*(rx+7.5)))); 



(rx+2 
rx+0. 
rx-1 . 
rx-3 . 
rx-5 . 
rx-7 . 
rx+5. 
rx+7 , 



.5)*(rx+2.5) 
5)*(rx+0.5) 
(rx-1 
(rx-3 
(rx-5 
(rx-7 
(rx+5 



+ 
+ 

5)) + 
5)))/ 
5)) + 
5)) + 
5) ) + 



5)*(rx+7.5)))) 1 



(rx+6.5)*(rx+6.5) ) + 
rx+0. 5) * (rx+0. 5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-7.5) * (rx-7.5) ) )/ 
rx+4. 5) * (rx+4. 5) ) + 
rx+2.5)*(rx+2.5) ) + 
rx-3.5)*(rx-3.5) ) + 
rx-5.5)*(rx-5.5)))); 

(rx+6.5) * (rx+6.5) ) + 
rx+2. 5) * (rx+2. 5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-5.5)*(rx-5.5)))/ 
rx+4.5)*(rx+4.5) ) + 
rx+0. 5) * (rx+0. 5) ) + 
rx-3. 5) * (rx-3. 5) ) + 
rx-7.5)*(rx-7.5)))); 



Dl_data[i+2j = L_dO; 
Dl_parity[i+2] = L_dl; 

D2_parity[i+2] = L_d2; 

D2_parity [i+1] 

i = i+2; 



L d3; 



} 



/* 

* interleave data: 
*/ 

r_ileav(Dl_data, rule); 



#endif 



/*mio*/ 

#ifdef R12_16QAM 
/* 

* Channel: we transmit two 4 -AM symbols to emulate a 16-QAM symbol. 
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* 2 info bits and 2 parity bits are mapped to 1 16-QAM symbols which in 

* turn are simulated as 2 4-AM symbols to achieve 2bit/s/Hz 

* dO is MSB and dl is LSB in a 4-AM:(dO,dl) = 01— 00- 1 -10 — 11 

* -3-113 

* INT_SIZE to be a multiple of 2 
*/ 

n = (-1.0) / (2 * SIGMA_12_16QAM * SIGMA_12_1 6QAM) ; 
for(i = 0; i < INT_SIZE; i++) . . 

{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_12_16QAM * gasdev(); 

L_d0 = log{ (exp(n*{rx-l) * (rx-1) )+exp(n* (rx-3)* (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) ) +exp (n* ( rx+3) * (rx+3) ) ) ) ; 

L_dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 
(exp(n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i] = L_d0; 

Dl_parity[i] = L_dl; 

D2_parity[i] =0.0; 

/* symbol 2 */ 
dO = data[i+l] ; 
dl = Enc2 [i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_12_16QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) ) +exp (n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 
(exp(n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i+1] = L_d0; 

D2_parity [i+1] = L_dl; 

Dl_parity [i+1] = 0.0; 

i = i+1; 

} 

#endif 

#ifdef R34_16QAM 
/* 

* Channel: we transmit two 4-AM symbols to emulate a 16-QAM symbol. 

* 6 info bits and 2 parity bits are mapped to 2 16-QAM symbols which in 

* turn are simulated as 4 4-AM symbols to achieve 3bit/s/Hz 

* dO is MSB and dl is LSB in a 4-AM:(d0,dl) = 01— 00- 1 -10— 11 

* -3-113 

* INT_SIZE to be a multiple of 6 
V 

n = (-1.0) / (2 * SIGMA_34_16QAM * SIGMA_34_16QAM) ; 
for(i - 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = data[i+l] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-1) * (rx-1) ) +exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log ( (exp(n* (rx+3) * (rx+3) )+exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx-1) * (rx-1) ) +exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i] = L_d0; 

Dl_data[i+1] = L_dl; 

/* symbol 2 */ 
dO = data[i+2] ; 
dl = Encl [i+1] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-1) * (rx-1) )+exp(n* (rx-3) * (rx-3) ) ) / 
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{exp(n* (rx+1) * (rx+1) ) +exp(n* (rx+3) * (rx+3) ) ) ) ; 
L_dl = log{ (exp(n*(rx+3)*(rx+3) ) +exp <n* (rx-3) * (rx-3) ) ) / 

(exp(n* (rx-1) * (rx-1) ) +exp (n* (rx+1) * (rx+1) ) ) ) ; 
Dl_data[i+2] = L_dO; 
Dl_parity[i+1] = L_dl; 

/* symbol 3 */ 
dO = data[i+3] ; 
dl = data[i+4] / 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-1) * (rx-1) ) +exp(n* (rx-3) * (rx-3) ) ) / 
(exp(n* (rx+1) * (rx+1) )+exp(n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 
(exp(n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 

Dl_data[i+3] = L_d0; 

Dl_data[i+4] = L_dl; 



/* symbol 4 */ 
dO = data[i+5] ; 
dl = Enc2 [i+4] ; 

tx - 2*d0 - 2*dl + 4*d0*dl - 1.0; 
rx = tx + SIGMA_34_16QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-1) * (rx-1) ) +exp (n* (rx-3) * (rx-3) ) ) / 
(exp (n* (rx+1) * (rx+1) ) +exp (n* (rx+3) * (rx+3) ) ) ) ; 

L_dl = log((exp(n*(rx+3)*(rx+3))+exp(n*(rx-3)*(rx-3))) / 
(exp(n* (rx-1) * (rx-1) )+exp(n* (rx+1) * (rx+1) ) ) ) ; 



Dl 


_data[i+5] 




L_ 


dO; 


D2 


_parity [i+4] 




l" 


~dl; 


Dl 


_parity[i] 




o" 


0 




Dl 


_parity [i+2] 




0 


.0 




Dl 


_parity [i+3] 




0 


0 




Dl 


_parity [i+4] 




0 


0, 




Dl 


_parity [i+5] 




0 


0, 




D2 


_parity[i] 




0 


0 




D2 


_parity [i+1] 




0 


0, 




D2~ 


_parity [i+2] 




0 


0 




D2 


_parity [i+3] 




0 


0, 




D2\ 


parity [i+5] 




0 


0, 




i = 


= i+5; 









p > 

p? #endif 

if* 

UJ #ifdef R56_64QAM 

i»5 /* 

; S l * Channel: 

* dO is MSB and d2 is LSB in 8AM: (dO, dl, d2 ) : 

* 010— 011 — 001 — -000 — 100— -101 — -111— 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 
*/ 

/* 

* Channel: we transmit two 8AM symbols to emulate a 64 QAM symbol. 

* 10 info bits and 2 parity bits are mapped to 2 64QAM symbols which in 

* turn are simulated as 4 8AM symbols to achieve 5bit'/s/Hz. 

* INT_SIZE to be a multiple of 10 
*/ 

n = (-1.0) / (2 * SIGMA_56_64QAM * SIGMA_56_64QAM) ; 
for(i = 0; i < INT_SIZE; i++) 
{ 

/* symbol 1 */ 
dO = data[i] ; 
dl = data [i+1] ; 
d2 = Encl [i] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l ) * (2*dl-l ) ) <0? (d2-0 . 5) : (0 . 5-d2) ) ; 
rx = tx + SIGMA_56_64QAM * gasdev(); 

L_d0 = log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3 . 5) * ( rx-3 . 5) ) ) / 
(exp(n* (rx+0.5) * ( rx+0 . 5) ) +exp (n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx+2.5) * (rx+2 . 5) ) +exp (n* (rx+3. 5) * (rx+3. 5) ) ) ) ; 
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log ( <exp(n* (rx+3.5) * (rx+3.5) ) +exp(n* (rx+2 . 5) * (rx+2 . 5 ) ) + 
exp(n* (rx-2 .5) * (rx-2 . 5) ) +exp (n* (rx-3.5) * (rx-3 .5) ) ) / 
<exp(n* (rx+1 .5) * (rx+1 .5) ) +exp (n* (rx+0 . 5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp {n* (rx-1 . 5) * (rx-1.5) ) ) ) ; 

log{ (exp(n* (rx+2. 5) * (rx+2 .5) )+exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp (n* (rx+3 . 5) * ( rx+3 . 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) ) ; 
Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 
Dl_parity[i] = L_d2; 
Dl_parity [i+1] = 0; 
D2_parity[i] = 0; 
D2_parity [i+1] = 0; 

/* symbol 2 */ 

data[i+2] ; 
data[i+3] ; 
data[i+4]; 

2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l ) * (2*dl-l ) ) <0? (d2-0 . 5) : (0 . 5-d2 ) ) ; 
tx + SIGMA_56_64QAM * gasdev(); 

log( (exp(n* (rx-0 . 5) * (rx-0 . 5) )+exp(n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-2. 5) * (rx-2 . 5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) / 
( exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) +exp { n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
exp (n* (rx+2 . 5) * (rx+2 .5) ) +exp(n* (rx+3.5) * (rx+3. 5) ) ) ) ; 

log( (exp (n* (rx+3.5) * (rx+3.5) ) +exp (n* (rx+2. 5) * (rx+2. 5) ) + 
exp(n* (rx-2 .5) * (rx-2 .5) ) +exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n* (rx+1 .5) * (rx+1 .5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) ) ) ; 

log( (exp(n* (rx+2 .5) * (rx+2. 5) )+exp(n* (rx+1 .5) * (rx+1. 5) ) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2. 5) * (rx-2. 5) ) ) / 
(exp(n* (rx+3 .5) * (rx+3.5) ) +exp (n* (rx+0.5) * (rx+0 .5) ) + 
exp(n* (rx-0 .5) * (rx-0.5) ) +exp (n* (rx-3.5) * (rx-3.5) ) ) ) ; 
US Dl_data[i+2] = L_d0; 

(ah Dl_data[i+3] = L_dl; 

Dl_data[i+4] - L_d2; 
B L Dl_parity[i+2] =» 0; 

ll| Dl_parity [i+3] = 0; 

J? Dl_parity [i+4] = 0; 

j fr J D2_parity [i+2] = 0; 

Ul D2_parity [i+3J = 0; 

p D2_parity[i+4] = 0; 

/* symbol 3 */ 
H d0 = data[i+5]; 

dl = data[i+6] ; 
d2 = Enc2[i+5] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2 ) ) ; 
rx = tx + SIGMA_56_64QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 .5)* (rx-1.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* {rx-3. 5) * (rx-3.5) ) ) / 
(exp (n* (rx+0 .5) * (rx+0 . 5) ) +exp (n* (rx+1. 5) * (rx+1 . 5) ) + 
exp (n* (rx+2. 5) * (rx+2. 5) ) +exp(n* (rx+3.5) * (rx+3.5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3. 5) * (rx+3.5) ) +exp(n* (rx+2. 5) * (rx+2. 5) ) + 
exp<n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
(exp(n*(rx+1.5)*(rx+1.5))+exp(n*(rx+0.5)*(rx+0.5)) + 
exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) ) ) ; 

L_d2 = log((exp(n*(rx+2.5)*(rx+2.5))+exp(n*(rx+1.5)*(rx+1.5)) + 
exp(n* (rx-1.5) * (rx-1.5) )+exp(n* (rx-2. 5) * (rx-2. 5) ) ) / 
(exp(n* (rx+3.5) * (rx+3.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-3 . 5) * (rx-3.5) ) ) ) ; 
Dl_data[i+5] = L_d0; 
Dl_data[i+6J = L_dl; 
D2_parityti+5] = L_d2; 
D2_parity [i+6] = 0; 
Dl_parity [i+5] = 0; 



L dl = 



L d2 = 



dO 

dl 
d2 
tx 

rx 

L dO 



L dl = 



ill 



L d2 
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Dl_parity[i+6] = 0; 

/* symbol 4 */ 
dO = data [i+7] ; 
dl = data[i+8] ; 
d2 = data[i+9] ; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( <2*d0-l) * (2*dl-l ) ) <0? (d2-0 . 5) : (0 . 5-d2) ) ; 
rx = tx + SIGMA_56_64QAM * gasdev(); 

L_d0 = log( (exp(n* (rx-0.5)* (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp ( n* ( rx-2 . 5 ) * ( rx- 2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* (rx+1 .5) * (rx+1 .5) ) + 
exp(n* (rx+2 .5) * (rx+2.5) ) +exp (n* (rx+3 . 5) * (rx+3 .5) ) ) ) ; 



L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5)) + 
exp(n* (rx-2. 5) * (rx-2. 5) ) +exp (n* (rx-3 . 5) * (rx-3. 5) ) ) / 
(exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) ) ) / 



Q 

m 

ill 

m 



tssti 
Is* 



L_d2 = log ( (exp (n* (rx+2.5) * (rx+2.5) ) +exp(n* (rx+1. 5) * (rx+1. 5) ) + 
exp(n* (rx-1. 5) * (rx-1.5) ) +exp (n* (rx-2. 5) * (rx-2 .5) ) ) / 
.5) * (rx+3. 5) )+exp(n* (rx+0.5) * (rx+0 



Dl_data[i+7] 
Dl_data[i+8] 
Dl_data[i+9] 
Dl_parity [i+7] 
Dl_parity [i+8] 
Dl_parity [i+9] 
D2_parity [i+7] 
D2_parity [i+8] 
D2_parity [i+9] 

i = i+9; 



(exp (n* (rx+3 . 
exp (n* (rx-0 . 
= L dO; 



5) * (rx-0.5) ) +exp (n* (rx-3. 5) * (rx-3 



■ 5); 
-5) ; 



+ 
>); 



: L _ d1 ' 
L_d2; 
0; 
0 
0 
0 
0 
0 



#endif 



#ifdef R57_128QAM 
/* 

* Q dimension: 

* dO is MSB and d2 is LSB in 8-AM: (dO, dl,d2) : 

* 010 — 011 001—000 100 101 111 110 

* -3.5 -2.5 -1.5 -0.5 0.5 1.5 2.5 3.5 

* I dimension: 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 



0010 — 0011- 
-7.5 -6.5 



-0001 — -0000- 
-5.5 -4.5 



-0100 0101 — 0111- 

-3.5 -2.5 -1.5 



-0110 
-0.5 



1010- 
7.5 



-1011- 
6.5 



-1001 1000- 

5.5 4.5 



-1100 1101 — 1111- 

3.5 2.5 1.5 



-1110 
0.5 



INT_SIZE to be a multiple of 5 



ford = 0; i < INT_SIZE; i++) 
{ 

/* Q dimension: 8AM */ 
dO = data[i] ; 
dl = data[i+l] ; 
d2 = Encl[i]; 

tx = 2*d0 - 2*dl + 4*d0*dl - 1.0 + ( ( (2*d0-l ) * (2*dl-l) ) <0? (d2-0 . 5) : (0 . 5-d2 ) ) ; 
rx = tx + S I GMA_8 AM_o f _1 2 8 QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_8AM_of_128QAM * SIGMA_8AM_of_128QAM) ; 
L_d0 = log( (exp(n*(rx-0.'5)*(rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) + 

exp(n* (rx-2. 5) * (rx-2. 5) ) +exp(n* (rx-3 . 5) * ( rx-3 . 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1 . 5) * ( rx+1 . 5) ) + 

exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) ) ) ; 



L_dl = log( (exp (n* (rx+3. 5) * (rx+3. 5) ) +exp (n* (rx+2 .5) * (rx+2 .5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) ) / 
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(exp(n* (rx+1.5) * (rx+1.5) )+exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1. 5) ) ) ) ; 

L_d2 = log ( (exp(n* (rx+2. 5) * (rx+2. 5) ) +exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx-1 .5) * (rx-1.5) )+exp(n* (rx-2 . 5) * (rx-2 . 5) ) ) / 
(exp (n* (rx+3.5) * (rx+3.5) ) +exp (n* ( rx+0 . 5 ) * (rx+0.5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp(n* {rx-3 . 5 ) * (rx-3 . 5) ) ) ) ; 
Dl_data[i] = L_dO; 

Dl_data[i+1] = L_dl; 
Dl_parity[i] = L_d2; 
Dl_parity [i+1] = 0.0; 
Dl_parity [i+2] = 0.0; 
Disparity [i+3] = 0.0; 
Dl_parity [i+4] = 0.0; 

/* I dimension: 16AM */ 
dO = data [i+2] ; 
dl = data [i+3] ; 
d2 = data [i+4] ; 
d3 = Enc2[i]; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) : (0. 5-d3) ) ; 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_16AM_of_128QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f _1 2 8 QAM * SIGMA_16AM_of_128QAM) ; 





L_ 


_d0 


= log ( (exp (n* 
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.5) * (rx-0 


.5) ) +exp (n* (rx-1 


.5)*(rx-l 


.5) ) + 
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5) ) +exp (n* 
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5) * (rx-7. 
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(exp (n* 
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5)*(rx+0, 


5) ) +exp (n* 


(rx+1 


5)*(rx+l. 


5)) + 








exp (n* 


(rx+2 . 


5)*(rx+2. 


5) ) +exp (n* 


(rx+3. 


5) * (rx+3. 


5)) + 








exp (n* 


(rx+4 . 


5)*(rx+4. 


5) )+exp(n* 


(rx+5 


5)*(rx+5. 


5)) + 








exp (n* 


(rx+6. 


5) * (rx+6. 


5) ) +exp (n* 


(rx+7 . 


5) * (rx+7. 


5))) ); 




L_ 


_dl 


= log ( (exp (n* 


(rx+3 


.5) * (rx+3 


. 5) ) +exp (n* 


(rx+2 


.5)*(rx+2 


.5)) + 


I s 






exp (n* 


rx+1 . 


5) * (rx+1. 


5) } +exp (n* 


(rx+0 . 


5) * (rx+0. 


5)) + 








exp (n* 


rx-0 . 


5) * (rx-0. 


5) ) +exp (n* 


(rx-1. 


5) * (rx-1. 


5)) + 








exp (n* 


(rx-2 . 


5)*(rx-2. 


5) } +exp (n* 


rx-3 . 


5) * (rx-3. 


5)))/ 


y, 






(exp {n* 


rx-4 . 


5) * (rx-4. 


5) } +exp (n* 


(rx-5 . 


5) * (rx-5. 


5)) + 








exp (n* 


!rx-6 . 


5) *(rx-6. 


5) )+exp(n* 


rx-7 . 


5) * (rx-7. 


5)) + 


ii 






exp(n* 


rx+4 . 


5) *(rx+4. 


5) ) +exp (n* 


[rx+5 . 


5) * (rx+5. 


5)) + 


jSSS. 






exp (n* 


rx+6. 


5) *(rx+6. 


5) )+exp(n* 


(rx+7 . 


5) * (rx+7. 


5))) ); 




L_ 


_d2 


= log ( (exp(n* 


(rx+7 


.5) * (rx+7 


.5) )+exp(n* 


(rx+6 


.5) * (rx+6 


.5)) + 


Ul 






exp (n* 


rx+1 . 


5) *(rx+l. 


5) )+exp(n* 


rx+0. 


5) * (rx+0. 


5)) + 


Q 






exp (n* 


rx-0 . 


5) *(rx-0. 


5) ) +exp(n* 


rx-1 . 


5)*(rx-l. 


5)) + 








exp (n* 


rx-6 . 


5) *(rx-6. 


5) ) +exp(n* 


rx-7 . 


5)*(rx-7. 


5)))/ 








(exp (n* 


rx+5 . 


5)*(rx+5. 


5) )+exp(n* 


rx+4 . 


5)* (rx+4. 


5)) + 








exp (n* 


rx+3 . 


5) * (rx+3. 


5) ) +exp(n* 


rx+2 . 


5) * (rx+2. 


5)) + 








exp (n* 


rx-2. 


5) * (rx-2. 


5) ) +exp (n* 


rx-3 . 


5) * (rx-3. 


5)) + 








exp (n* 


rx-4 . 


5) * (rx-4. 


5) ) +exp(n* 


rx-5 . 


5) * (rx-5. 


5) ) ) ) ; 




L_ 


_d3 


= log ( (exp (n* 


(rx+5 


.5) * (rx+5 


. 5) ) +exp (n* 


(rx+6 


.5)*(rx+6 


.5)) + 








exp (n* 


rx+1 . 


5) * (rx+1. 


5) ) +exp (n* 


rx+2 . 


5) * (rx+2. 


5)) + 








exp {n* 


rx-2 . 


5) * (rx-2. 


5) )+exp(n* 


rx-1. 


5)* (rx-1. 


5)) + 








exp (n* 


rx-6 . 


5)*(rx-6. 


5) ) +exp (n* 


!rx-5 . 


5) * (rx-5. 


5)))/ 








(exp (n* 


rx+7 . 


5)*(rx+7. 


5) ) +exp (n* 


rx+4 . 


5)* (rx+4. 


5)) + 








exp (n* 


rx+3. 


5)*(rx+3. 


5) ) +exp(n* 


rx+0 . 


5)*(rx+0. 


5)) + 








exp (n* 


rx-0 . 


5)*(rx-0. 


5) )+exp(n* 


rx-3 . 


5)*(rx-3. 


5)) + 








exp (n* 


rx-4 . 


5)*(rx-4. 


5) ) +exp(n* 


rx-7 . 


5)*(rx-7. 


5)))); 



Dl_data[i+2] 


= L 


dO; 


Dl_data[i+3] 


= L 


dl; 


Dl_data[i+4] 


= L 


d2; 


D2_parity [i] 


= L 


d3; 


D2_parity [i+1] 


= 0. 


"0; 


D2_parity[i+2] 


= 0. 


0; 


D2_parity[i+3] 


= 0. 


0; 


D2_parity [i+4] 


= 0. 


0; 


i = i+4; 
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#endif 



#ifdef R58_256QAM 
/* 

* Channel : 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
* 

* 0010 0011 0001 — 0000 — 0100 0101—0111 0110 

* -7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 
★ 

* 1010 — 1011 — 1001 — 1000 — 1100 — 1101— 1111 — 1110 

* 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 
★ 

* Channel: we transmit two 16AM symbols to emulate a 256QAM symbol. 

* 10 info bits and 6 parity bits are mapped to 2 256QAM symbols which in 

* turn are simulated as 4 16AM symbols to achieve 6bit/s/Hz. 
* 

* INT_SIZE to be a multiple of 10 
*/ 



= (-1.0) / (2 * SIGMA_58 256QAM * SIGMA 58 256QAM) ; 



m 

ir.r 



□ 



Q 



/* 

* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; i++) 

data_d[i] = data[i] ; 
r deileava (data d, rule); 



ford = 0; 
{ 

/* 
dO 
dl 
d2 
d3 
tx 
tx 
/* 



i < INT_SIZE; 



symbol 
= data 
= data_ 
- data 



1 */ 
d[i] ; 
d[i+l]; 
dti+2] j 



= Encl [1] ; 

=■ 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( { (2*dl-l) * (2*d2-l ) ) <0? (d3-0 . 5) : (0 . 5-d3) ) ; 
= (dO == 0 ? (tx - 4) : (4 - tx) ) ; 
Test the mapping to the 16AM constellation: 
if (i < 500) 

printf {"\n(%d%d%d%d) = %f", (int)dO, (int)dl, (int)d2, (int)d3, tx) ; 



*/ 

rx 


= tx + SIGMA_ 


_58_256QAM * gasdev(); 








L_d0 


= log ( (exp (n* 


(rx-0 


.5)*(rx-0 


.5) ) +exp(n* 


(rx-1 


.5) * (rx-1 


.5)) + 




exp (n* 


rx-2 . 


5) * (rx-2 


5) ) +exp (n* 


rx-3 . 


5)* (rx-3. 


5)) + 




exp (n* 


rx-4 . 


5) * (rx-4. 


5) ) +exp (n* 


(rx-5 . 


5)*{rx-5. 


5)) + 




exp (n* 


rx-6. 


5)*(rx-6. 


5) ) +exp(n* 


(rx-7. 


5)*(rx-7. 


5)))/ 




(exp(n* 


rx+0. 


5) * (rx+0. 


5) ) +exp(n* 


(rx+1. 


5)*(rx+l. 


5)) + 




exp (n* 


rx+2 . 


5)*(rx+2. 


5) ) +exp(n* 


(rx+3. 


5)* (rx+3. 


5)) + 




exp (n* 


rx+4 . 


5)*(rx+4. 


5) ) +exp(n* 


(rx+5. 


5)* (rx+5. 


5)) + 




exp (n* 


rx+6. 


5)*{rx+6. 


5) ) +exp (n* 


(rx+7. 


5)* (rx+7. 


5) ) ) ) ; 


L_dl 


= log ( (exp (n* 


(rx+3 


.5) * (rx+3 


. 5) ) +exp (n* 


(rx+2 


.5)* (rx+2 


.5)) + 




exp (n* 


rx+1 . 


5)*(rx+l. 


5 ) ) +exp (n* 


rx+0 . 


5)* (rx+0. 


5)) + 




exp (n* 


rx-0 . 


5) * (rx-0. 


5) ) +exp (n* 


rx-1. 


5)*(rx-l. 


5)) + 




exp (n* 


rx-2 . 


5)* (rx-2. 


5) ) +exp(n* 


rx-3 . 


5)*{rx-3. 


5) ) )/ 




(exp (n* 


rx-4 . 


5)*(rx-4. 


5) ) +exp (n* 


rx-5 . 


5)*(rx-5. 


5)) + 




exp (n* 


rx-6 . 


5)* (rx-6. 


5) ) +exp (n* 


rx-7 . 


5)*(rx-7. 


5)) + 




exp (n* 


rx+4 . 


5)* (rx+4. 


5) ) +exp (n* 


rx+5. 


5)*{rx+5. 


5)) + 




exp (n* 


rx+6. 


5) * (rx+6. 


5) )+exp(n* 


rx+7. 


5)*(rx+7. 


5)))); 


L_d2 


= log ( (exp (n* 


(rx+7 


.5)* (rx+7 


.5) ) +exp(n* 


(rx+6 


.5)*(rx+6 


.5)) + 




exp (n* 


rx+1 . 


5) * (rx+1. 


5) ) +exp (n* 


rx+0. 


5) * (rx+0. 


5)) + 




exp (n* 


rx-0 . 


5) * (rx-0. 


5) ) +exp(n* 


rx-1. 


5)*(rx-l. 


5)) + 




exp (n* 


rx-6 . 


5) * (rx-6. 


5) ) +exp (n* 


rx-7. 


5) * (rx-7. 


5)))/ 




(exp (n* 


rx+5. 


5)* (rx+5. 


5) ) +exp(n* 


rx+4 . 


5)*(rx+4. 


5)) + 




exp(n* 


rx+3. 


5)*(rx+3. 


5) ) +exp(n* 


rx+2. 


5)* (rx+2. 


5)) + 




exp (n* 


rx-2. 


5)* (rx-2. 


5) ) +exp(n* 


rx-3. 


5)* (rx-3. 


5)) + 




exp (n* 


rx-4 . 


5)*(rx-4. 


5) )+exp(n* 


rx-5 . 


5)*(rx-5. 


5)) )); 
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AplferoiX 



tea J 
III 
111 

b 
ill 



L_d3 = log( (exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+6.5)* (rx+6.5) ) + 
exp(n* (rx+1.5) * (rx+1.5) ) +exp (n* (rx+2 . 5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-1 . 5 ) * (rx-1 .5) ) + 
exjp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5.5) * (rx-5.5) ) ) / 
(exp(n* (rx+7 . 5) * (rx+7 . 5) ) +exp (n* (rx+4 . 5) * (rx+4 . 5) ) + 
exp(n* (rx+3. 5) * (rx+3. 5) ) +exp(n* (rx+0.5) * (rx+0 .5) ) + 
exp (n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-3 . 5 ) * (rx-3 .5) ) + 
exp(n* (rx-4. 5) * (rx-4 .5) ) +exp (n* (rx-7 . 5 ) * (rx-7 .5) ) ) ) ; 

Dl_data[i] = L_dO; 

Dl_data[i+lJ = L_dl; 

Dl_data[i+2] = L_d2; 

Dl_parity[i] = L_d3; 

Dl_parity[i+1] = 0; 

Dl_parity [i+2] = 0; 

D2_parity[i] = 0; 

D2_parity [i+1] = 0; 

/* symbol 2 */ 
dO = data_d[i+3] ; 
dl = data_d[i+4] ; 
d2 = Enc2[i+2] ; 
d3 = Encl[i+4] ; 
tx = 2*dl - 2*d2 + 4*dl*d2 - 
tx = (dO == 0 ? (tx - 4) : (4 
rx = tx + SIGMA_58_256QAM 
L_dO = log( (exp(n* (rx-0. 5) 

exp(n* (rx-2.5) 

exp (n* 

exp (n* 
(exp (n* 

exp (n* 

exp (n* 

exp (n* 



L_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) ) +exp(n* 
exp(n* (rx+1.5) * (rx+1.5) )+exp(n* 
exp (n* (rx-0 . 5) * (rx-0 . 5) ) +exp (n* 
exp(n* (rx-2.5) * (rx-2 .5) ) +exp (n* 
(exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* 
exp (n* (rx+4 . 5) * (rx+4 . 5) ) +exp (n* 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* 



L d2 



log( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



L d3 



log ( (exp (n^ 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
Dl_data[i+3] 
Dl_data[i+4] 
D2_parity [i+2] 
Dl_parity [i+4] 
Dl_parity [i+3] 
D2_parity[i+3] 
D2_parity[i+4] 



1.0 + ( ( (2*dl-l) * (2*d2-l) )<0?(d3-0.5) : (0.5-d3) ) ; 
- tx))/ 
r gasdev ( ) ; 
(rx-0. 5) ) +exp(n* 
(rx-2.5) )+exp(n* 
rx-4 . 5) * (rx-4 .5) ) +exp(n* 
rx-6.5) * (rx-6.5) ) +exp(n* I 
rx+0. 5) * (rx+0.5) ) +exp(n* 
rx+2. 5) * (rx+2 .5) ) +exp (n* ( 
rx+4 .5) * (rx+4 .5) ) +exp(n* ( 
rx+6. 5) * (rx+6.5) ) +exp (n* ( 



( rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* 
rx+1.5)* (rx+1.5) )+exp(n* 
rx-0 .5) * (rx-0 .5) ) +exp (n* 
rx-6.5) * (rx-6.5) ) +exp(n* 
rx+5.5) * (rx+5.5) )+exp(n* 
rx+3.5)*(rx+3.5) )+exp(n* 
rx-2.5)* (rx-2.5) )+exp(n* 
rx-4 . 5) * (rx-4 . 5) ) +exp (n* 



(rx+5.5)*(rx+5, 
rx+1 . 5) * (rx+1 . 
rx-2.5)* (rx-2. 
rx-6.5)* (rx-6. 
rx+7 . 5) * (rx+7 . 
rx+3. 5) * (rx+3. 
rx-0. 5) * (rx-0. 
rx-4 . 5) * (rx-4 . 

L_dl 
L_d2 
L_d3 
0; 
0; 
0; 



.5) )+exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) )+exp(n* 
5) ) +exp (n* 
5) )+exp(n* 
5) ) +exp(n* 
5) )+exp(n* 



(rx-1.5)*(rx-1.5)) + 
rx-3.5)*(rx-3.5) ) + 
rx-5.5)*(rx-5.5) ) + 
rx-7.5)*(rx-7.5) ) )/ 
rx+1.5)*(rx+1.5) ) + 
rx+3. 5) * (rx+3. 5) ) + 
rx+5.5) * (rx+5.5) ) + 
rx+7. 5) * (rx+7 .5) ) ) ) ; 



(rx+2. 5) * (rx+2. 5) ) + 
rx+0.5)*(rx+0.5) ) + 
rx-1. 5) * (rx-1. 5) ) + 
rx-3. 5) * (rx-3. 5) ) ) / 
rx-5.5)* (rx-5.5) ) + 
rx-7. 5) * (rx-7. 5) ) + 
rx+5.5) * (rx+5.5) ) + 
rx+7.5)*(rx+7.5)))); 



(rx+6.5)*(rx+6.5)) + 
rx+0.5) * (rx+0.5) ) + 
rx-1.5)*(rx-1.5) ) + 
rx-7.5)*(rx-7.5) ) )/ 
rx+4.5)*(rx+4.5) ) + 
(rx+2. 5)) + 
3.5)) + 
5.5) ) ) ); 



rx+2. 5) 1 
rx-3.5)*(rx- 
rx-5 . 5) * (rx- 



(rx+6. 5) * (rx+6.5) ) + 
rx+2. 5) * (rx+2. 5) ) + 
rx-1.5)*(rx-1.5)) + 
rx-5.5)*(rx-5.5)))/ 
rx+4. 5) * (rx+4. 5) ) + 
rx+0.5)*(rx+0,5) ) + 
rx-3.5)*(rx-3.5) ) •+ 
rx-7.5)*(rx-7.5)))); 



/* symbol 3 */ 

dO = data d[i+5] ; 
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Ill 



dl = data_d[i+6]; 
d2 = data_d[i+7]; 
d3 = Enc2 [i+5] ; 

tx = 2*61 - 2*d2 + 4*dl*d2 - 1.0 + ( { (2*dl-l ) * ( 2*d2-l ) ) <0? <d3-0 . 5 ) : ( 0 . 5-d3 ) ) , 
tx = (dO == 0 ? {tx - 4) : (4 - tx) ) ; 
rx = tx + SIGMA_58_256QAM * gasdev(); 

L_dO = log< (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 



exp (n* (rx-2 . 5 
exp (n* (rx-4 . 5 
exp (n* (rx-6. 5 
(exp(n* (rx+0. 5 
exp{n* (rx+2. 5 
exp (n* (rx+4 . 5 
exp (n* (rx+6. 5 



L dl 



log( (exp{n* (rx+3 
exp (n* (rx+1 . 
exp (n* (rx-0 . 
exp (n* {rx-2 . 
(exp (n* ( rx-4 . 
exp (n* (rx-6. 
exp (n* (rx+4 . 
exp (n* (rx+6. 



L_d2 = log( (exp(n* (rx+7.5) 
exp (n* (rx+1 . 5 
exp (n* (rx-0 . 5 
exp (n* (rx-6. 5 
(exp(n* {rx+5.5 
exp (n* (rx+3 . 5 
exp (n* (rx-2 . 5 
exp (n* (rx-4 . 5 



L_d3 = log ( (exp (n* (rx+5.5) * (rx+5.5) )+exp(n* 



exp 
exp 

Dl_data[i+5] 
Dl_data[i+6] 
Dl_data[i+7] 
D2_parity [i+5] 
D2_parity [i+6] 
D2_parity [i+7] 
Dl_parity [i+5] 
Disparity [i+6] 



exp (n* (rx+1 . 5 
exp (n* (rx-2 . 5 
exp (n* (rx-6. 5 
(exp (n* (rx+7 .5 
exp (n* (rx+3. 5 
n* (rx-0. 5 
n* (rx-4. 5 
= L_d0 
= L_dl 
= L_d2 
= L_d3; 
= 0; 
= 0; 
= 0; 
= 0; 



* (rx-2. 5) )+exp(n* > 
* (rx-4. 5) )+exp(n* > 
* (rx-6. 5) )+exp(n* > 

* (rx+0. 5) ) +exp'(n* i 

* (rx+2. 5) ) +exp(n* > 

* (rx+4 .5) ) +exp(n* i 

* (rx+6. 5) ) +exp(n* i 

* (rx+3 .5) ) +exp{n* 
r (rx+1. 5) )+exp(n* i 
r (rx-0. 5) )+exp(n* 
r (rx-2. 5) )+exp(n* 
r (rx-4. 5) )+exp(n* 
r (rx-6. 5) )+exp(n* 
* (rx+4. 5) )+exp(n* 
* (rx+6. 5) )+exp(n* 

* (rx+7 .5) ) +exp (n* 
* (rx+1. 5) )+exp(n* 
* (rx-0. 5) ) +exp (n* 
* (rx-6. 5) ) +exp (n* 
* (rx+5.5) ) +exp (n* 
* (rx+3. 5) ) +exp (n* 
* (rx-2 .5) ) +exp (n* 
* (rx-4 .5) ) +exp (n* 



* (rx+1 .5) ) +exp (n* 
* (rx-2. 5) )+exp(n* 
* (rx-6. 5) ) +exp (n* 
* (rx+7 .5) ) +exp (n* 
* (rx+3. 5) )+exp(n* 
* (rx-0. 5) ) +exp (n* 
* (rx-4 .5) ) +exp (n* 



rx-3.5 
rx-5 . 5 
rx-7.5 
rx+1. 5 
rx+3. 5 
rx+5 . 5 
rx+7 . 5 



(rx+2 . 
rx+.0 . 5 
rx-1 
rx-3 
rx-5 
rx-7 
rx+5 
rx+7 



5) 



(rx+6. 
rx+0. 5 
rx-1 
rx-7 
rx+4 
rx+2 
rx-3 



rx-5 . 5 



rx+2. 5 
rx-1. 5 
rx-5 . 5 
rx+4 . 5 
rx+0 . 5 
rx-3.5 
rx-7.5 



*(rx-3.5)) + 
*(rx-5.5)> + 
*(rx-7.5)))/ 
*(rx+1.5)) + 
*{rx+3.5)) + 
*(rx+5.5)) + 
*(rx+7.5)))); 

*(rx+2.5)) + 
*(rx+0.5)) + 
*(rx-1.5)) + 
*(rx-3.5)))/ 
*(rx-5.5)) + 
*(rx-7.5)) + 
*(rx+5.5)) + 
*(rx+7.5)))); 



5) 



* (rx+6 
* (rx+0. 
* (rx-1. 
*(rx-7. 
*(rx+4. 
* (rx+2. 

* (rx 

* (rx 



.5)) + 
5)) + 
5)) + 
5)))/ 
5)) + 
5)) + 
3.5)) + 
5.5)))); 



(rx+6.5)*(rx+6.5) ) + 



*(rx+2.5)) + 
*(rx-1.5)) + 
*(rx-5.5)))/ 
* (rx+4. 5)) + 
*(rx+0.5)) + 
*(rx-3.5)) + 
* (rx-7.5) ) ) ) 



/* symbol 4 */ 
dO = data_d [i+8] / 
dl = data_d[i+9] ; 
d2 = End [i+7]; 
d3 = Enc2 [i+9] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) )<0? (d3-0.5) : (0.5-d3) ) ; 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_58_256QAM * gasdevO; 
L_d0 = log( (exp(n* (rx-0. 5) * (rx-0. 5) )+exp(n* (rx-1. 

exp(n* (rx-2 .5) * (rx-2 .5) ) +exp (n* (rx-3. 

exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* (rx-5 . 

exp(n* (rx-6. 5) * (rx-6. 5) )+exp(n* (rx-7 . 
(exp(n* (rx+0. 5) * (rx+0 .5) )+exp(n* (rx+1 . 

exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 

exp(n* (rx+4.5)*(rx+4.5) )+exp(n* (rx+5. 



.5) * (rx-1. 5) ) + 
.5)*{rx-3.5) ) + 
.5)*(rx-5.5) ) + 
,5)*(rx-7.5) ))/ 
■5)*{rx+1.5)) + 
-5)*(rx+3.5)) + 
.5)*{rx+5.5)) + 



exp(n* (rx+6. 5) * (rx+6. 5) )+exp(n* (rx+7.5)* (rx+7.5) ) ) ) , 



L_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+2. 5) * (rx+2. 5) ) + 
exp(n* (rx+1. 5) * (rx+1. 5) )+exp(n* (rx+0. 5) * (rx+0. 5) ) + 
exp'(n* (rx-0. 5) * (rx-0. 5) ) +exp (n* (rx-1 . 5) * (rx-1 . 5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3.5) * (rx-3.5) ) ) / 
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(exp(n* (rx-4 . 5) * (rx-4 .5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) + 
exp(n* (rx+4 .5) * (rx+4.5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp(n* (rx+7 .5) * (rx+7. 5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+7. 5) * (rx+7 .5) ) +exp (n* (rx+6.5) * (rx+6.5) ) + 
exp(n* (rx+1.5) * (rx+1.5) ) +exp (n* ( rx+0 . 5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7 . 5) * (rx-7 . 5) ) ) / 
(exp (n* (rx+5.5) * (rx+5. 5) ) +exp(n* (rx+4 .5) * (rx+4.5) ) + 
exp<n* (rx+3.5) * (rx+3. 5) ) +exp(n* (rx+2.5) * (rx+2.5) ) + 
exp < n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx- 3 . 5 ) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp(n* (rx-5.5) * (rx-5.5) ) } ) ; 

L_d3 = log( (exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+6.5) * (rx+6.5) ) + 
exp(n* (rx+1.5)* (rx+1.5) )+exp(n* (rx+2 .5) * (rx+2 . 5) ) + 
exp (n* (rx-2. 5) * (rx-2 .5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* ( rx-5 . 5) * (rx-5.5) ) ) / 
(exp (n* (rx+7 .5) * (rx+7. 5) ) +exp(n* (rx+4 .5) * (rx+4 .5) ) + 
exp (n* (rx+3.5) * (rx+3. 5) ) +exp (n* (rx+0 . 5) * (rx+0 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp (n* (rx-4 .5) * (rx-4 . 5) ) +exp(n* (rx-7.5) * (rx-7.5) ) ) ) ; 
Dl_data[i+8] = L_dO; 
Dl_data[i+9] = L_dl; 

Dl_parity[i+7] = L_d2; 

D2_parity[i+9J = L_d3; 

Dl_parity [i+8] = 0/ 

Dl_parity [i+9] = 0; 

D2_parity [i+7] = 0; 

D2_parity [i+8] = 0; 

i = i+9; 

} 

/* 

* interleave data: 
V 

r_ileav(Dl_data, rule) ; 
#endif 



#ifdef R68_256QAM 
/* 

* Channel : 

* dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 
* 

* 0010 0011 0001 0000 0100 0101 — 0111 0110 

-7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 

* 

* 1010 1011 1001 1000 1100 1101 — 1111 1110 

* 7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 

* Channel: we transmit two 16AM symbols to emulate a 25 6QAM symbol. 

* 6 info bits and 2 parity bits are mapped to one 256QAM symbol which 

* turn is simulated as 2 16AM symbols to achieve 6bit/s/Hz. 

* INT_SIZE to be a multiple of 6 
V 

n = (-1.0) / (2 * SIGMA_68_256QAM * SIGMA_68_256QAM) ; 
/* 

* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; i++) 

data_d[i] = data[i]; 
r_deileava (data_d, rule); 



ford = 0; i < INT_SI2E; i++) 
{ 

/* symbol 1 */ 
dO = data_d[i] ; 
dl = data_d[i+l] ; 
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d2 = data d[i+2] ; 



u 
m 



d3 = 
tx = 
tx = 
rx 

L dO 



Encl[i]; 

2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l ) * (2*d2-l ) ) <0? (d3-0 . 5) : (0 . 5-d3) ) ; 

(dO == 0 ? (tx - 4) : (4 - tx) ) ; 

= tx + SIGMA_68_256QAM * gasdevO; 
= log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* 



L dl 



L d2 = 



L d3 = 



exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 

log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx-2. 
rx-4 . 
rx-6 . 
rx+0. 
rx+2, 
rx+4 . 



rx+6. 5 



(rx+3. 
rx+1 . 5 
rx-0.5 
rx-2. 5 
rx-4. 5 
rx-6. 5 
rx+4. 5 
rx+6. 5 



5) 



(rx+7 
rx+1 . 
rx-0. 
rx-6. 
rx+5. 
rx+3. 
rx-2 . 
rx-4 . 



* (rx-2. 5) )+exp(n* 
* (rx-4. 5) )+exp(n* 
* (rx-6. 5) )+exp(n* 
* (rx+0. 5) )+exp(n* 
* (rx+2.5) )+exp(n* 
* (rx+4. 5) )+exp(n* 
* (rx+6. 5) ) +exp(n* 



* (rx+3 
* (rx+1. 
* (rx-0. 
* (rx-2. 
* (rx-4. 
* (rx-6. 
* (rx+4 . 
* (rx+6. 



. 5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp(n* 
5) ) +exp(n* 
5) ) +exp (n* 
5) ) +exp (n* 
5) ) +exp (n* 



* (rx+7. 5) )+exp(n* 
* (rx+1. 5) ) +exp (n* 
(rx-0.5) ) +exp (n* 
(rx-6. 5) ) +exp(n* 
* (rx+5. 5) ) +exp (n* 
* (rx+3. 5) )+exp(n* 
(rx-2. 5) ) +exp(n* 
(rx-4 . 5) ) +exp (n* 

( rx+5 . 5 ) * ( rx+5 . 5 ) ) +exp (n* 
rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp (n* 
rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp (n* 
rx-6. 5) * (rx-6. 5) ) +exp(n* 
rx+7. 5) * (rx+7. 5) )+exp(n* 
rx+3. 5) * (rx+3. 5) )+exp(n* 
rx-0.5) * (rx-0.5) )+exp(n* 
rx-4 .5) * (rx-4 . 5) ) +exp (n* 



(rx-1.5) * (rx-1.5) ) + 
rx-3.5)*(rx-3.5)) + 
rx-5.5) * (rx-5.5) ) + 
rx-7.5)*(rx-7.5) ) )/ 
rx+1.5)*(rx+1.5) ) + 
rx+3.5)*(rx+3.5) ) + 
rx+5.5)*(rx+5.5) ) + 
rx+7 .5) * (rx+7. 5) ) ) ) ; 

(rx+2.5)* (rx+2.5) ) + 
rx+0. 5) * (rx+0. 5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-3.5)*(rx-3.5)))/ 
rx-5.5)*(rx-5.5)) + 
rx-7.5)*(rx-7.5) ) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7 .5) * (rx+7 .5) ) ) ) ; 

(rx+6.5)*(rx+6.5) ) + 
rx+0. 5) * (rx+0. 5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-7.5) * (rx-7.5) ) )/ 
rx+4. 5) * (rx+4. 5) ) + 
rx+2.5)*(rx+2.5)) + 
rx-3.5) * (rx-3.5) ) + 
rx-5.5) * (rx-5.5) ) ) ) ; 



(rx+6 
rx+2 . 
rx-1. 
rx-5 . 
rx+4 . 
rx+0. 
rx 
rx 



3.5) 
7.5) 



■5)*{rx+6.5) ) 
5)*(rx+2.5)) 
5)* (rx-1 
5) * (rx-5 
5) * (rx+4 
5) * (rx+0 
(rx 
(rx 



+ 
+ 

5)) + 
5)))/ 
5)) + 
5)) + 
3.5)) + 
7.5)))); 



n 
Pi 

■ssjir 



Dl_data[i] 


= L dO; 


Dl data[i+l] 


= L dl; 


Dl_data[i+2] 


= L d2; 


Dl_parity [i] 


= L d3; 


Dl_parity[i+1] 


= 0; 


Dl_parity [i+2] 


= 0; 


D2_parity [i] 


= 0; 


D2_parity[i+1] 


= 0; 


D2_parity[i+2] 


- 0; 



/* symbol 2 */ 

dO = data_d[i+3] ; 

dl = data_d[i+4] ; 
d2 = data_d[i+5] ; 
d3 = Enc2[i+3] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5 ) : (0 . 5-d3 ) ) ; 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + SIGMA_68_256QAM * gasdevO; 

L_dO - log( (exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp (n* ( rx-2 . 5 ) * ( rx-2 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
exp (n* (rx-4. 5) * (rx-4 . 5 ) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6. 5) * (rx-6. 5) ) +exp (n* (rx-7.5) * (rx-7 .5) ) ) / 
(exp(n* (rx+0. 5) * (rx+0. 5) ) +exp (n* (rx+1. 5) * (rx+1 .5) ) + 
exp(n* (rx+2.5) * (rx+2.5) ) +exp(n* (rx+3. 5) * (rx+3 .5) ) + 
exp(n* (rx+4 .5) * (rx+4. 5) ) +exp(n* (rx+5. 5) * (rx+5 .5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) )+exp(n* (rx+7. 5) * (rx+7. 5) ) ) ) ; 

L_dl = log((exp(n*(rx+3.5)*(rx+3.5))+exp(n*(rx+2.5)*(rx+2.5) ) + 
exp ( n* ( rx+1 . 5 ) * ( rx+1 . 5 ) ) +exp ( n* ( rx+0 . 5 ) * ( rx+0 . 5 ) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) + 
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exp (n* 


rx-2 . 


5)* 


(rx-2. 


5) ) +exp (n* 


rx-3 


5) * (rx-3. 


5) ) ) / 


(exp (n* 


rx-4 . 


5)* 


{rx-4 


5) ) +exp (n* 


(rx-5 


5)* (rx-5. 


5} ) + 


exp (n* 


(rx-6 . 


5)* 


(rx-6 


5) ) +exp(n* 


(rx-7 


5)*(rx-7. 


5) ) + 


exp (n* 


rx+4 . 


5)* 


(rx+4 . 


5) ) +exp(n* 


(rx+5 


5)* (rx+5. 


5)) + 


exp (n* 


rx+6. 


5)* 


(rx+6. 


5) ) +exp (n* 


(rx+7 . 


5) * (rx+7. 


5) ) ) ) ; 


L_d2 = log((exp(n* 


(rx+7 


. 5) i 


r ( rx+7 


. 5) ) +exp (n* 


(rx+6 


. 5) * (rx+6 


. 5) ) + 


exp (n* 


(rx+1 . 


5)* 


(rx+1 . 


5) ) +exp (n* 


(rx+0 . 


5) * (rx+0. 


5) ) - + 


exp (n* 


rx-0 . 


5)* 


(rx-0. 


5) ) +exp (n* 


(rx-1. 


5) * (rx-1. 


5) ) + 


exp (n* 


rx-6 . 


5)* 


(rx-6. 


5) ) +exp (n* 


(rx-7. 


5) * (rx-7. 


5) ) ) / 


(exp (n* 


rx+5 . 


5)* 


(rx+5. 


5) ) +exp (n* 


(rx+4 . 


5) * (rx+4. 


5) ) + 


exp (n* 


rx+3 . 


5)* 


(rx+3 . 


5) ) +exp (n* 


(rx+2 . 


5) * (rx+2. 


5) ) + 


exp (n* 


rx-2 . 


5)* 


(rx-2. 


5) ) +exp(n* 


(rx-3 . 


5) * (rx-3. 


5) ) + 


exp (n* 


rx-4 . 


5)* 


(rx-4 . 


5) ) +exp (n* 


rx-5. 


5} * (rx-5. 


5)))); 


L_d3 = log ( (exp (n* 


(rx+5 


.5)* 


r (rx+5 


.5) ) +exp(n* 


(rx+6 


.5)*(rx+6 


.5)) + 


exp(n* 


rx+1 . 


5)* 


(rx+1. 


5) ) +exp (n* 


rx+2 . 


5) * (rx+2. 


5)) + 


exp (n* 


rx-2 . 


5)* 


(rx-2. 


5) ) +exp (n* 


rx-1. 


5) * (rx-1. 


5)) + 


exp (n* 


rx-6 . 


5)* 


(rx-6. 


5) ) +exp (n* 


rx-5 . 


5) * (rx-5. 


5) ))/ 


(exp (n* 


rx+7 . 


5)* 


(rx+7 . 


5) ) +exp (n* 


rx+4 . 


5) * (rx+4. 


5)) + 


exp (n* 


rx+3 . 


5)* 


(rx+3. 


5) ) +exp (n* 


rx+0 . 


5) * (rx+0. 


5)) + 


exp (n* 


rx-0 . 


5)* 


(rx-0. 


5) ) +exp (n* 


rx-3. 


5) * (rx-3. 


5)) + 


exp (n* 


rx-4 . 


5)* 


(rx-4. 


5) ) +exp (n* 


rx-7. 


5) * (rx-7. 


5)))); 



Dl_data[i+3] = L_d0 

DL_data[i+4] = L__dl 

Dl x data[i+5] = L_d2 

D2_parity[i+3] = L_d3 

D2_parity [i+4] = 0; 

D2__parity [i+5] = 0; 

Disparity [i+3] = 0; > 

Dl_parity [i+4] = 0; 

Dl_parity [i+5] = 0; 

i = i+5; 

} 

/* 

* interleave data: 
*/ 

r_ileav (Dl_data, rule); 
#endif 



#ifdef R69_512QAM 
/* 

* Interleaver should be a multiple of 12, e.g., 6144 

* Q dimension: 

* dO is MSB and d4 is LSB in 32AM: (d0,dl,d2,d3,d4) : 

* 00010— 00011— 00001— 00000 — 00100— 00101—00111- 

* -15.5 -14.5 -13.5 -12.5 -11.5 -10.5 -9.5 



-00110 
-8.5 



01010--01011 — 01001— 01000— 01100— 01101— 01111— OHIO 

-7.5 



-0.5 



-1.5 



-2.5 



-3.5 



-4.5 



-5.5 



-6.5 



11010 — 11011— 11001 — 11000— 11100—11101 — 11 111- 



0.5 



15.5 



1.5 



2.5 



3.5 



4.5 



5.5 



14.5' 13.5 



12.5 



11.5 



10.5 



6.5 



10010 — 10011—10001 — 10000 — 10100— 10101 — 10111- 



9.5 



-11110 
7.5 

-10110 
8.5 



I dimension: 

dO is MSB and d3 is LSB in 16AM: (dO, dl, d2, d3) : 



0010— 0011— 0001— 0000— 0100- — 0101-— 0111 — 0110 
-7.5 -6.5 -5.5 -4.5 -3.5 -2.5 -1.5 -0.5 

1010 1011 1001 — 1000 1100 1101 1111 1110 

7.5 6.5 5.5 4.5 3.5 2.5 1.5 0.5 
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* deinterleave data: 
*/ 

ford = 0; i < INT_SIZE; 

data_d[i] = data[i] ; 
r deileava (data d, rule) , 



i++) 



ford : 
{ 

/* 

d0 
dl 
d2 
d3 
d4 
tx 
tx 
tx 
rx 
n 



= 0; i < INT_SIZE; 

symbol 1, Q dimension: 32AM */ 

- data_d [i] ; 

= data_d[i+l] / 

= data_d[i+2] ; 

= data_d[i+3] ; 

= Encl [i] ; 

= 2*d2 - 2*d3 + 
= {dl == 0 ? (tx 
= (d0 == 0 ? (tx 



4*d2*d3 - 1.0 + ( { (2*d2-l) * (2*d3-l) )<0? (d4-0.5) : <0.5-d4) ) , 

- 4) : "<4 - tx) ); 

- 8) : (8 - tx) ); 

= tx + SIGMA_32AM_of_512QAM * gasdevO; 

= (-1.0) / (2 * SIGMA 32AM of 512QAM * SIGMA 32AM of 512QAM) ; 



L_d0 = log( (exp{n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp {n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



(rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) 



L dl 



L d2 



log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
exp (n* 
exp (n* 
(exp (n* 
exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp <n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx-2.5) * (rx- 
rx-4.5)*(rx- 
rx-6.5)*(rx- 
rx-8 . 5) * (rx- 



2.5 
4.5 
6.5 
8.5 



rx-10.5)*(rx-10 
rx-12.5)* (rx-12 
rx-14 .5) * (rx-14 
rx+0.5) * (rx+0.5 
rx+2.5) * (rx+2.5 
rx+4 . 5) * (rx+4 . 5 
rx+6.5) *<rx+6. 5 
rx+8.5) * (rx+8.5 
rx+10.5) * (rx+10 
rx+12. 5)*<rx+12 
rx+14. 5)*(rx+14 



(rx-0 
rx-2 . 
rx-4 . 
rx-6 . 
rx+0. 
rx+2 . 
rx+4 . 
rx+6. 
rx-8 . 
rx-10 
rx-12 
rx-14 
rx+8 
rx+10 
rx+12 
rx+14 

(rx+4 . 
rx+6. 
rx+8 . 
rx+10 
rx-4 . 
rx-6. 
rx-8 . 
rx-10 
rx+0. 
rx+2 . 
rx+12 
rx+14 
rx-0. 
rx-2. 
rx-12 



.5) * (rx-0. 
5) * (rx-2.5 
5)*(rx-4.5 
5) * (rx-6. 5 
5) * (rx+0 
5) * (rx+2 
5) * (rx+4 
5) * (rx+6 
5) * (rx-8 
.5) * (rx 



.5 
.5 
.5 
.5 
.5 
-10 



.5) * (rx-12 
.5) * (rx-14 
5) * (rx+8.5 
.5) * (rx+10 
.5) * (rx+12 
.5) * (rx+14 



5)*(rx+6.5 
5)*<rx+8.5 
.5) * (rx+10 
5)*(rx-4.5 
5) * (rx-6. 5 
5) * (rx-8. 5 
.5)*{rx-10 
5) * (rx+0.5 
5) * (rx+2.5 
.5)*(rx+12 
.5)*(rx+14 
5) * (rx-0.5 
5) * (rx-2.5 
.5) * (rx-12 



+ 
+ 
+ 
+ 
+ 

5) ) 



)+exp(n* (rx-3.5) * (rx-3.5) ) 
)+exp{n* (rx-5.5) * (rx-5.5) ) 
)+exp(n* (rx-7.5) * (rx-7.5) ) 
)+exp(n* (rx-9.5) * (rx-9.5) ) 
5) )+exp(n*(rx-11.5)*(rx-ll 
5) )+exp(n*(rx-13.5)*{rx-13.5) )' + 
5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) / 
) +exp (n* (rx+1.5) * (rx+1.5) ) + 
5)*(rx+3.5)) + 
5)*(rx+5.5)) + 
5)* (rx+7. 5)) + 
5)*(rx+9.5)) + 
5))+exp(n*(rx+11.5)*(rx+11.5)) + 
5))+exp(n*(rx+13.5)*(rx+13.5)) + 
5) )+exp(n* (rx+15.5) * (rx+15.5) ) ) ) , 



) +exp (n* (rx+3 . 
) +exp (n* (rx+5 . 
) +exp (n* (rx+7 . 
)+exp(n* (rx+9. 



5) ) +exp (n* (rx-1.5) * (rx-1.5) ) + 
)+exp(n* (rx-3.5) * (rx-3.5) ) + 
)+exp(n* (rx-5.5) * (rx-5.5) ) + 
) +exp(n* (rx-7 .5) * (rx-7 .5) ) + 
) +exp(n* (rx+1 .5) * (rx+1 .5) ) + 
)+exp(n*(rx+3.5)*(rx+3.5)) + 
)+exp(n*(rx+5.5)*(rx+5.5)) + 
)+exp(n* (rx+7. 5) * (rx+7. 5) ) ) / 
)+exp(n*(rx-9.5)*(rx-9.5)) + 
5))+exp(n*(rx-ll.S)*(rx-11.5)) + 
5) )+exp(n*(rx-13.5)*(rx-13.5) ) + 
5))+exp(n*(rx-15.5)*(rx-15.5)) + 
) +exp (n* (rx+9. 5) * (rx+9. 5) ) + 
5))+exp(n*(rx+11.5)*(rx+11.5)) + 
5) ) +exp(n* (rx+13.5) * (rx+13.5) ) + 
5) )+exp(n* (rx+15.5) * (rx+15.5) ) ) ) ; 



5) * (rx+4. 5) )+exp(n* (rx+5. 5) * (rx+5. 5) ) + 



)+exp(n* {rx+7 .5) 
)+exp(n* (rx+9. 5) 
5) ) +exp(n* {rx+11 
)+exp(n* (rx-5 .5) 
) +exp(n* (rx-7 .5) 
)+exp(n* (rx-9.5) 
5) ) +exp(n* (rx-11 
)+exp(n* (rx+1 .5) 
)+exp(n*(rx+3.5) 
5) )+exp(n*(rx+13 
5) ) +exp(n* (rx+15 
) +exp(n* (rx-1 .5) 
) +exp(n* (rx-3.5) 
5) ) +exp(n* (rx-13 



*(rx+7.5)) + 

*(rx+9.5)) + 

.5)* (rx+11. 5) ) + 

* (rx-5.5)) + 

* (rx-7.5)) + 

*(rx-9.5)) + 

-5)*(rx-11.5) ) )/ 

*{rx+1.5)) + 

*{rx+3.5)) + 
5)*<rx+13.5)) + 
5)*(rx+15.5)) + 

*(rx-1.5)) + 

*(rx-3.5)) + 

.5) * (rx-13. 5) ) + 
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exp(n* (rx-14 .5) * (rx-14 .5) ) +exp (n* { rx-15 . 5) * (rx-15.5) ) ) ) ; 



L^d3 - log( <exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp (n* (rx+6. 5) * (rx+6.5) ) +exp(n* (rx+7.5) * (rx+7 .5) ) + 
exp (n* (rx+8 . 5) * (rx+8.5) ) +exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+14.5) * (rx+14.5) )+exp(n* (rx+15.5) * (rx+15.5) ) + 
exp (n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1 . 5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* { rx-7 . 5) * (rx-7.5) ) + 
exp(n* (rx-8.5) * (rx-8 . 5) ) +exp (n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-14 .5) * (rx-14 .5) )+exp(n* (rx-15 . 5) * (rx-15 . 5) ) ) / 
(exp(n* (rx+4 .5) * (rx+4. 5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+2.5)* (rx+2.5) ) +exp (n* (rx+3 . 5) * ( rx+3 . 5) ) + 
exp(n* (rx+12.5) * (rx+12.5) ) +exp (n* (rx+13 . 5) * (rx+13.5) ) + 
exp(n* (rx+10.5) * (rx+10.5) ) +exp (n* (rx+11 . 5) * (rx+11.5) ) + 
exp(n* (rx-4.5) * (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
expfn* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-12.5) * (rx-12 . 5) ) +exp (n* (rx-13 . 5) * (rx-13.5) ) + 
exp(n* (rx-10 .5) * (rx-10.5) ) +exp{n* (rx-10.5) * (rx-10 .5) ) ) ) ; 

L_d4 = log( (exp(n* (rx+2.5)* (rx+2.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) ) +exp (n* (rx+5 . 5) * (rx+5 .5) ) + 
exp(n* (rx+10.5) * (rx+10.5) ) +exp(n* (rx+9. 5) * (rx+9.5) ) + 
exp(n* (rx+14 .5) * (rx+14 .5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
exp (n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-1 . 5) * (rx-1.5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-5 . 5) * (rx-5.5) ) + 
exp (n* (rx-10.5) * (rx-10.5) ) +exp (n* (rx-9.5) * (rx-9.5) ) + 
exp (n* (rx-14. 5)* (rx-14. 5) )+exp(n* (rx-13 .5) * (rx-13 . 5) ) ) / 
(exp(n* (rx+4. 5) * (rx+4. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp(n* (rx+7.5) * (rx+7.5) ) +exp(n* (rx+8.5) * (rx+8.5) ) + 
exp(n* (rx+12.5) * (rx+12.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
exp(n* (rx+0.5) * (rx+0 . 5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) + 
exp (n* (rx-4 .5) * (rx-4.5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-7.5) * (rx-7.5) )+exp(n* (rx-8.5) * (rx-8.5) ) + 
exp (n* (rx-12.5) * (rx-12.5) ) +exp(n* (rx-11.5) * (rx-11.5) ) + 
exp(n* (rx-0. 5) * (rx-0.5) ) +exp(n* (rx-15.5) * (rx-15.5) ) ) ) ; 



Dl 


data[i] 




L 


dO; 


Dl 


data[i+l] 




L 


dl; 


Dl 


data[i+2] 




L 


d2; 


Dl" 


"data[i+3] 




L_ 


"d3; 


Dl 


_parity[i] 




L 


"d4; 


Dl 


parity [i+l] 




0. 


"0; 


Dl 


parity [i+2] 




0. 


0; 


Dl 


parity [i+3] 




0. 


0; 


Dl 


parity [i+5] 




0. 


0; 



/* symbol 1, I dimension: 16AM */ 
dO = data_d[i+4] ; 
dl - data_d[i+5] ; 
d2 = Encl [i+4] ; 
d3 = Enc2[i+2] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0. 5) : (0 
tx = (dO == 0 ? (tx -4): (4 - tx)); 
rx = tx + SIGMA_16AM_of_512QAM * gasdevO; 

n = (-1.0) / (2 * SIGMA_16AM_of_512QAM * SIGMA_16AM_of_512QAM) ; 

L_d0 = log( (exp(n* (rx-0.5) * (rx-0 .5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp (n* (rx-4 .5) * (rx-4.5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp (n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 . 5 ) * ( rx-7 . 5 ) ) ) / 
(exp (n* (rx+0.5) * (rx+0.5) ) +exp (n* (rx+1 .5) * (rx+1.5) ) + 
exp (n* (rx+2.5) * (rx+2.5) ) +exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp(n* (rx+4 .5) * (rx+4. 5) ) +exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) ) +exp(n* (rx+7 .5) * (rx+7 .5) ) ) ) ; 

L_dl = log( (exp(n* (rx+3. 5) * (rx+3. 5) )+exp(n* (rx+2.5)* (rx+2.5) ) + 
exp (n* (rx+1 .5) * (rx+1. 5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 . 5) * ( rx-3 . 5) )') / 
(exp(n* (rx-4.5) * (rx-4.5) ) +exp (n* (rx-5 . 5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp (n* (rx-7 . 5) * (rx-7.5) ) + 
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exp(n* (rx+4 .5) * (rx+4 . 5) ) +exp(n* (rx+5.5) * (rx+5 .5) ) + 
exp(n* (rx+6.5)* (rx+6.5) ) +exp(n* (rx+7 . 5) * (rx+7 . 5) ) ) ) ; 

L_d2 = log( (exp(n* (rx+7 .5) * (rx+7. 5) ) +exp (n* (rx+6.5) * (rx+6.5) ) + 
exp (n* (rx+1 .5) * (rx+1 .5) ) +exp (n* (rx+0.5) * (rx+0 .5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) + 
exp (n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7 . 5) * (rx-7 .5) ) ) / 
(exp(n* (rx+5.5) * (rx+5.5) )+exp(n* (rx+4 . 5 ) * (rx+4 . 5 ) ) + 
exp(n*(rx+3.5)*(rx+3.5) ) +exp (n* (rx+2 . 5) * (rx+2 . 5) ) + 
exp(n* (rx-2.5) * (rx-2.5) )+exp(n* (rx-3 .5) * (rx-3 .5) ) + 
exp(n* (rx-4.5)* (rx-4.5) ) +exp(n* (rx-5 . 5) * (rx-5 . 5) ) ) ) ; 

L_d3 = log((exp(n*(rx+5.5)*(rx+5.5))+exp(n*(rx+6.5)*(rx+6.5)) + 
exp(n* (rx+1. 5) * (rx+1 .5) ) +exp (n* (rx+2. 5) * (rx+2 .5) ) + 
exp(n* (rx-2.5) * (rx-2 .5) ) +exp(n* (rx-1.5) * (rx-1 .5) ) + 
exp(n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-5 . 5) * (rx-5 . 5) ) )/ 
(exp(n* (rx+7.5)*(rx+7.5) )+exp(n* (rx+4 . 5 ) * ( rx+4 . 5) ) + 
exp(n*(rx+3.5)*(rx+3.5) ) +exp(n* (rx+0.5) * (rx+0.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
exp(n* (rx-4.5) * (rx-4 .5) ) +exp(n* (rx-7. 5) * (rx-7 .5) ) ) ) ; 



m 



Dl_data[i+4] = L_d0; 

Dl_data[i+5] = L_dl; 

Dl_parity[i+4] = L_d2; 

D2_parity [i+2] = L_d3; 

D2_parity[i] = 0.0; 

D2_parity [i+1] = 0.0; 

D2_parity [i+3] = 0.0; 

D2_parity [i+4] = 0.0; 

D2_parity[i+5] = 0.0; 

/* symbol 2, Q dimension: 32AM */ 

dO = data_d[i+6] ; 

dl = data_d[i+7] ; 
d2 = data_d(i+8] ; 
d3 = data_d[i+9] ; 
d4 = Enc2 [i+6] ; 
tx = 2*d2 - 2*d3 + 
tx = (dl == 0 ? (tx 
tx = (dO == 0 ? (tx 



rx = 


tx + SIGMA : 


n = 


(-1.0) / (2 


L_d0 = 


log ( (exp (n* 




exp (n* 




exp (n* 




exp (n* 




exp (n* 




exp (n* 




exp (n* 




exp (n* 




(exp (n* 




exp (n* 




exp (n* 




exp (n* 




exp (n* 




exp (n* ( 




exp (n* ( 




exp (n* ( 


L_dl = 


log ( (exp (n* 




exp (n* 1 




exp (n* ( 




exp (n* ( 




exp (n* ( 




exp (n* ' 




exp (n* i 




exp (n* i 




(exp (n* i 




exp (n* ( 




exp (n* ( 




exp (n* ( 



4*d2*d3 - 1.0 + 

- 4): (4 - tx)) 

- 8) : (8 - tx) ) 
tf4_of_512QAM * 
SIGMA 32AM of 



( ( (2*d2-l) * (2*d3-l) )<0? (d4-0.5) : (0.5-d4) ) ; 



gasdev( ) ; 

512QAM * SIGMA 32AM of 512QAM) ; 



r (rx-0.5) )+exp(n* (rx-1.5)* (rx-1.5) ) 
(rx-2.5) )+exp(n* (rx-3. 5) * (rx-3. 5) ) 
(rx-4 .5) )+exp(n* (rx-5 . 5 ) * (rx-5 . 5) ) 
(rx-6.5) )+exp(n*(rx-7.5)*(rx-7.5) ) 



(rx-0.5) 
rx-2 .5) * 
rx-4.5) * 
rx-6.5) * 

rx-8.5)* (rx-8.5) )+exp(n* (rx-9.5) * (rx-9.5) ) 
rx-10.5)* (rx-10.5) )+exp(n* (rx-11 . 5) * (rx-11 
rx-12.5) * (rx-12.5) )+exp(n* (rx-13.5) * (rx-13 
rx-14.5) * (rx-14.5) )+exp(n* (rx-15 . 5) * (rx-15 
rx+0.5) * (rx+0.5) ) +exp (n* (rx+1. 5) * (rx+1 .5) ) 
rx+2. 5) * (rx+2 .5) ) +exp (n* (rx+3 . 5 ) * (rx+3 . 5 ) ) 
rx+4. 5)* (rx+4. 5) )+exp(n* (rx+5 . 5 ) * (rx+5 . 5) ) 
rx+6.5) * (rx+6.5) )+exp(n* (rx+7 . 5) * (rx+7 . 5) ) 
rx+8 . 5 ) * { rx+8 . 5 ) ) +exp ( n* ( rx+9 . 5 ) * ( rx+9 . 5 ) ) 
rx+1 0 . 5 ) * ( rx+1 0 . 5 ) ) +exp ( n* { rx+1 1 . 5 ) * ( rx+1 1 
rx+12.5) * (rx+12.5) )+exp(n* (rx+13.5) *(rx+13 
rx+14 . 5 ) * ( rx+14 . 5 ) ) +exp (n* ( rx+15 . 5 ) * ( rx+15 



+ 
+ 
+ 
+ 
+ 

5)) + 

5)) + 

5)))/ 

+ 

+ 

+ 

+ 

+ 

5)) + 
5)) + 
5)))); 



(rx-0.5) * (rx-0. 5) ) +exp(n* (rx-1 
rx-2.5) * (rx-2 .5) )+exp(n* (rx-3. 
rx-4.5)* (rx-4.5) )+exp(n* (rx-5, 
rx-6.5) * (rx-6.5) )+exp(n* (rx-7. 
rx+0.5) * (rx+0.5) )+exp(n* (rx+1. 
rx+2 . 5) * (rx+2 .5) ) +exp (n* (rx+3 . 
rx+4. 5) * (rx+4 .5) ) +exp(n* (rx+5. 
rx+6.5) * (rx+6.5) ) +exp (n* ( rx+7 . 
rx-8.5)* (rx-8.5) ) +exp (n* (rx-9 . 
rx-10.5) * (rx-10.5) )+exp(n* (rx- 
rx-12.5) * (rx-12.5) ) +exp(n* (rx- 
rx-14.5) * (rx-14.5) ) +exp(n* (rx- 



.5)*(rx-1.5) ) + 
5)*{rx-3.5)) + 
5)*(rx-5.5)) + 
5)*(rx-7.5) ) + 
5)*(rx+1.5)) + 
5)*(rx+3.5)) + 
5)*(rx+5.5)) + 
5)*(rx+7.5)))/ 
5)*(rx-9.5)) + 
•11.5)*(rx-11.5) ) 
•13.5)*(rx-13.5)) 
15.5)*(rx-15.5) ) 
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exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 



L_d3 = log ( (exp (n* (rx+0, 
exp (n* (rx+6 . 
exp (n* (rx+8 . 
exp (n* (rx+14 
exp (n* (rx-0 . 
exp (n* (rx-6 . 
exp (n* (rx-8 . 
exp (n* (rx-14 
(exp (n* (rx+4 . 
exp (n* (rx+2 . 
exp(n*(rx+12 
exp (n* (rx+10 
exp (n* (rx-4 . 
exp (n* (rx-2 . 
exp (n* (rx-12 
exp (n* (rx-10 

L_d4 = log ( { exp ( n* ( rx+2 . 

exp (n* (rx+6 
exp (n* (rx+10 
exp (n* (rx+14 
exp (n* (rx-2 
exp (n* (rx-6 
exp (n* (rx-10 
exp (n* (rx-14 
(exp (n* (rx+4 . 
exp (n* (rx+7 . 
exp (n* (rx+12 
exp (n* (rx+0 . 
exp (n* (rx-4 . 
exp (n* (rx-7 . 
exp (n* (rx-12 
exp (n* (rx-0 . 



rx+8.5)*(rx+8.5 
rx+10. 5) * (rx+10 
rx+12. 5) * (rx+12 
rx+14. 5) *(rx+14 



(rx+4 

rx+6. 

rx+8 . 

rx+10 

rx-4 

rx-6 

rx-8 

rx-10 

rx+0 . 

rx+2 . 

rx+12 

rx+14 

rx-0 . 

rx-2 

rx-12 

rx-14 



,5) * (rx+4 . 
5) * (rx+6. 5 
5) * (rx+8. 5 
5) * (rx+10 
5)* (rx-4. 5 
5)*(rx-6.5 
5)*(rx-8.5 
5) * (rx-10 
5)*(rx+0.5 
5)* (rx+2. 5 
.5) *(rx+12 
.5) *(rx+14 
5)*(rx-0.5 
5")* (rx-2. 5 
5) * (rx-12 
5) * (rx-14 



5) 



)+exp(n*(rx+9.5)*(rx+9.5) ) + 
5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
5))+exp(n*(rx+13.5)*(rx+13.5)) + 
5) )+exp(n* (rx+15.5) * (rx+15.5) ) ) ) 

) +exp(n* (rx+5.5) * (rx+5.5) ) + 
) +exp(n* (rx+7 . 5) * (rx+7 .5) ) + 
)+exp(n* (rx+9.5) * (rx+9.5) ) + 
5) ) +exp(n* (rx+11 .5) * (rx+11.5) ) + 
)+exp(n*(rx-5.5)*(rx-5.5) ) + 
)+exp(n*(rx-7.5)*(rx-7.5) ) + 
) +exp(n* (rx-9.5) * (rx-9.5) ) + 
5) ) +exp(n* (rx-11.5) * (rx-11.5) ) ) / 
)+exp(n* (rx+1.5)* (rx+1.5) ) + 
)+exp(n*(rx+3.5)*(rx+3.5) ) + 
5) ) +exp(n* (rx+13.5) * (rx+13.5) ) + 
5) ) +exp(n* (rx+15.5) * (rx+15.5) ) + 
)+exp(n*(rx-1.5)*(rx-1.5) ) + 
)+exp(n*(rx-3.5) *{rx-3.5) ) + 
5) ) +exp(n* (rx-13.5) * (rx-13.5) )' + 
5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) ) 



.5) * (rx+0. 5) )+exp<n* (rx+1 . 5) * (rx+1 . 5) ) + 
5)* (rx+6. 5) )+exp(n*(rx+7.5)*(rx+7.5) ) + 
5) * (rx+8 .5) ) +exp(n* (rx+9.5) * (rx+9.5) ) + 
.5) * (rx+14. 5) )+exp(n* (rx+15.5) * (rx+15.5) ) + 
5)* (rx-0. 5) )+exp(n+(rx-1.5)*(rx-1.5) ) + 
5)* (rx-6. 5) )+exp(n*(rx-7.5)*(rx-7.5) ) + 
5)* (rx-8. 5) )+exp(n* (rx-9.5)* (rx-9.5) ) + 
.5) * (rx-14. 5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) / 
5) * (rx+4 . 5) ) +exp(n* (rx+5.5) * (rx+5 .5) ) + 
5) * (rx+2. 5) ) +exp(n*(rx+3.5) * (rx+3 .5) ) + 
.5) * (rx+12. 5) ) +exp(n* (rx+13.5) * (rx+13.5) ) + 
.5) * (rx+10. 5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
5) * (rx-4. 5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
5) * (rx-2. 5) ) +exp(n* (rx-3.5) * (rx-3.5) ) + 
.5) * (rx-12. 5) )+exp(n* (rx-13.5) * (rx-13.5) ) + 
.5) * (rx-10. 5) ) +exp(n* (rx-10. 5) * (rx-10. 5) ) ) ) 



.5) * (rx+2 .5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
5)* (rx+6. 5) )+exp(n*(rx+5.5) * (rx+5.5) ) + 
.5) * (rx+10. 5) ) +exp(n* (rx+9.5) * (rx+9. 5) ) + 
.5) * (rx+14. 5) ) +exp(n* (rx+13.5) * (rx+13.5)') + 
5)* (rx-2. 5) )+exp(n*(rx-1.5)*(rx-1.5) ) + 
5)* (rx-6. 5) ) +exp(n*(rx-5. 5) * (rx-5.5) ) + 
5) * (rx-10. 5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
.5) * (rx-14. 5) )+exp(n* (rx-13 . 5) * ( rx-13 . 5) ) ) / 
5)* (rx+4. 5) )+exp(n*(rx+3.5) *<rx+3.5) ) + 
5)* (rx+7. 5) )+exp(n*(rx+8.5) *{rx+8.5) ) + 
.5) * (rx+12. 5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
5) * (rx+0. 5) ) +exp(n* (rx+15.5) * (rx+15.5) ) + 
5)* (rx-4. 5) )+exp(n* (rx-3.5)* (rx-3.5) ) + 
5)* (rx-7. 5) )+exp(n*(rx-8.5)*(rx-8.5) ) + 
.5) * (rx-12. 5) )+exp(n* (rx-11.5) * (rx-11.5) ) + 
5) * (rx-0. 5) ) +exp(n* (rx-15.5)* (rx-15.5) ) ) ) ; 



Dl_data[i+6] = L_d0; 

Dl_data[i+7] = L_dl; 

Dl_data[i+8] = L_d2; 

Dl_data[i+9] = L__d3; 

D2_parity [i+6] = L_d4; 

D2_parity [i+7] = 0.0; 

D2_parity [i+8] = 0.0; 

D2_parity [i+9] = 0.0; 
D2_parity [i+11] =0.0; 

/* symbol 2, I dimension: 16AM */ 
dO = data_d[i+10] ; 
dl = data_d[i+ll] ; 
d2 = Enc2[i+10] ; 
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d3 = Encl [i+8] ; 

tx = 2*dl - 2*d2 + 4*dl*d2 - 1.0 + ( ( (2*dl-l) * (2*d2-l) ) <0? (d3-0 . 5) 
tx = (dO == 0 ? (tx - 4): (4 - tx) ) ; 
rx = tx + S I GMA_ 1 6 AM_o f _5 1 2 QAM * gasdev(); 

n = (-1.0) / (2 * S I GMA_1 6 AM_o f _5 1 2 QAM * SIGMA_16AM_of_512QAM) ; 
L_d0 = log( (exp (n* (rx-0.5) * (rx-0 .5) )+exp(n* (rx-1.5) * (rx-1 . 5) ) + 



exp(n* (rx-2.5)* (rx-2.5) )+exp(n* 
exp(n* (rx-4.5)* (rx-4.5) )+exp(n* 
exp(n* (rx-6.5)* (rx-6.5) )+exp(n* 
(exp(n* (rx+0.5) * (rx+0.5) ) +exp(n* 
exp (n* ('rx+2 . 5) * (rx+2 . 5) ) +exp (n* 
exp (n* (rx+4 . 5) * (rx+4 . 5) ) +exp (n* 
exp(n* (rx+6.5)* (rx+6.5) )+exp(n* 

L_dl = log( <exp(n* (rx+3.5) * (rx+3 .5) )+exp (n* 
exp(n* (rx+1.5)* (rx+1.5) )+exp(n* 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* 
(exp(n* (rx-4.5)* (rx-4.5) )+exp(n* 
exp(n* (rx-6. 5) * (rx-6.5) ) +exp(n* 
exp{n* (rx+4. 5) * (rx+4. 5) ) +exp(n* 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* 

L_d2 = log( (exp (n* (rx+7.5) * (rx+7 .5) ) +exp(n* 
exp(n* (rx+1.5) * (rx+1.5) )+exp(n* 
exp(n* (rx-0.5)* (rx-0.5) )+exp(n* 
exp (n* (rx-6. 5) * (rx-6. 5) ) +exp (n* 
( exp ( n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) +exp (n* 
exp(n*(rx+3.5)*(rx+3.5) )+exp(n* 
exp(n* (rx-2.5)* (rx-2.5) )+exp(n* 
exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* 

L_d3 = log( (exp(n* (rx+5. 5) * (rx+5. 5) )+exp(n* 
exp(n* (rx+1 . 5) * (rx+1 . 5) ) +exp (n* 
exp(n* (rx-2 . 5) * (rx-2.5) )+exp(n* 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* 
(exp(n* (rx+7.5) * (rx+7.5) )+exp(n* ■ 
exp (n* (rx+3. 5) * (rx+3 . 5) ) +exp (n* ■ 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* ■ 
exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* > 



rx-3.5) * (rx-3.5) ) + 
rx-5.5)*(rx-5.5) ) + 
rx-7.5)*(rx-7.5)))/ 
rx+1.5)*(rx+1.5)) + 
rx+3. 5) * (rx+3. 5) ) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7.5) * (rx+7.5) ) ) ) ; 

(rx+2.5)*(rx+2.5) ) + 
rx+0.5) * (rx+0.5) ) + 
rx-1.5) * (rx-1.5) ) + 
rx-3.5) * (rx-3.5) ) ) / 
rx-5.5) * (rx-5.5) ) + 
rx-7.5)*(rx-7.5)) + 
rx+5. 5) * (rx+5. 5) ) + 
rx+7.5) * (rx+7.5) ) ) ) ; 

(rx+6.5) * (rx+6.5) ) + 
rx+0.5)*(rx+0.5) ) + 
(rx-1.5)) + 
rx-7.5)))/ 
5)) + 
(rx+2. 5)) + 
(rx-3.5)) + 
(rx-5.5) ) ) ) ; 



rx-1.5) 
rx-7.5) * < 
rx+4. 5) *(rx+4. 
rx+2. 5) 1 
rx-3.5) 
rx-5.5) 1 



(rx+6.5) * (rx+6.5) ) + 
rx+2.5)*(rx+2.5) ) + 
rx-1.5)*(rx-1.5) ) + 
rx-5.5)*(rx-5.5)))/ 
rx+4.5)*(rx+4.5) ) + 
rx+0.5) * (rx+0.5) ) + 
rx-3.5)*(rx-3.5)) + 
rx-7.5)*(rx-7.5)))); 



Dl_data[i+10] 
Dl_data[i+ll] 
D2_parity [i+10] 
Dl_parity [i+8] 
Dl_parity [i+6] 
Dl_parity [i+7] 
Dl_parity [i+9] 
Dl_parity [i+10] 
Dl_parity [i+11] 

i = i+11; 



= L_d0; 
= L_dl; 

L_d2 ; 

L_d3; 

0.0; 

0.0; 

0.0; 

0.0; 

0.0; 



} 

/* 

* interleave data: 
*/ 

r_ileav(Dl data, rule); 



#endif 



#ifdef R710_1024QAM 
/* 

* Use S2044_33_l interleaver (multiple of 14) 
* 

* I and Q dimensions: 

* dO is MSB and d4 is LSB in 32AM: (dO, dl, d2, d3, d4 ) : 

* 00010--00011--00001— 00000--00100— 00101— 00111— 00110 

* -15.5 -14.5 -13.5 -12.5 -11.5 -10.5 -9.5 -8.5 
* 

* 01010— 01011—01001— 01000— 01100— 01101— 01111— OHIO 
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-0.5 


-1.5 


-2.5 


-3.5 


-4.5 


-5.5 


-6.5 


-7.5 


11010- 


-11011- 


-11001- 


-11000- 


-11100- 


-11101- 


-11111- 


-11110 


0.5 


1.5 


2.5 


3.5 


4.5 


5.5 


6.5 


7.5 


10010- 


-10011- 


-10001- 


-10000- 


-10100- 


-10101- 


-10111- 


-10110 


15.5 


14.5 


13.5 


12.5 


11.5 


10.5 


9.5 


8.5 



m 



m 



n 



O 



n = (-1. 
for(i = 0; 
{ 

/* 

dO 

dl 
d2 
d3 
d4 
tx 

tx = 
tx = 
rx 

L dO 



(2 ' 
INT 



SIGMA_710 
SIZE; i++)~ 



1024QAM * SIGMA 710 1024QAM) ; 



symbol 1, Q dimension */ 
= data{i] ; 
= data [i+1] ; 
= data[i+2] ; 
= data[i+3] ; 
= Encl [i] ; 
= 2*d2 - 2*d3 + 
= (dl == 0 ? (tx 
= (dO == 0 ? (tx 



4*d2*d3 - 1.0 + ( ( (2*d2-l)* (2*d3-l) )<0? (d4-0.5) : (0.5-d4) ) i 

- 4) : (4 - tx}); 

- 8) : (8 - tx) ) ; 

tx + SIGMA_710_1024QAM * gasdev(); 

log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 .5) * (rx-1 .5) ) + 
rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
rx-4.5)* (rx-4.5) ) +exp (n* ( rx-5 . 5 ) * < rx-5 . 5) ) + 
rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) + 
rx-8.5)*(rx-8.5) ) +exp (n* (rx-9 . 5) * (rx-9 . 5) ) + 
rx-10.5) * (rx-10.5) ) +exp (n* ( rx-11 . 5) * (rx-11.5) ) + 
rx-12.5) * (rx-12.5) ) +exp(n* (rx-13 .5) * (rx-13.5) ) + 
rx-14.5)* (rx-14.5) ) +exp (n* ( rx-15 . 5 ) * (rx-15.5) ) )/ 
rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
rx+2.5) * (rx+2 .5) ) +exp(n* (rx+3.5) * (rx+3 .5) ) + 
rx+4.5) * (rx+4.5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
rx+6.5)*(rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7 . 5) ) + 
rx+8.5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
rx+10.5) * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 



exp (n* 
exp (n*" 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



L dl 



L d2 



log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
exp (n* 

log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx+12.5) * (rx+12.5) ) +exp <n* ( rx+13 . 5 ) * (rx+13.5) ) + 
rx+14.5) * (rx+14.5) ) +exp (n* (rx+15 . 5) * (rx+15.5) ) ) ) ; 



.5)*(rx-1.5)) 
.5)*(rx-3.5) ) 
.5)*(rx-5 
.5)*(rx-7 
.5)*(rx+l 
.5)*(rx+3 
.5)*(rx+5 
.5)*(rx+7.5) ) )/ 



.5) ) 
.5) ) 
.5)) 
.5)) 
.5) ) 



(rx-0.5) * (rx-0.5) ) +exp(n* (rx-1 . 
rx-2.5)* (rx-2.5) )+exp(n* (rx-3. 
rx-4.5) * (rx-4.5) )+exp(n* (rx-5. 
rx-6. 5) * (rx-6 . 5) ) +exp (n* (rx-7 . 
rx+0.5) * (rx+0.5) ) +exp(n* (rx+1. 
rx+2.5) * (rx+2 .5) ) +exp (n* (rx+3. 
rx+4 .5) * (rx+4 .5) ) +exp(n* (rx+5. 
rx+6.5) * (rx+6.5) ) +exp (n* (rx+7. 
rx-8.5) * (rx-8.5) ) +exp(n* (rx-9.5) * (rx-9.5) ) + 
rx-10.5) * (rx-10.5) ) +exp (n* (rx-11 . 5) * (rx-11 .5) ) + 
rx-12.5) * (rx-12.5) ) +exp (n* (rx-13 . 5 ) * (rx-13.5) ) + 
rx-14.5) * (rx-14.5) ) +exp (n* (rx-15 . 5) * (rx-15.5) ) + 
rx+8.5) * (rx+8.5) )+exp(n* (rx+9. 5) * (rx+9. 5) ) + 
rx+10.5) * (rx+10.5) ) +exp (n* ( rx+11 . 5) * ( rx+11 . 5 ) ) + 
rx+12.5) * (rx+12.5) ) +exp (n* ( rx+13 . 5 ) * ( rx+13 . 5 ) ) + 
rx+14.5) * (rx+14. 5) ) +exp (n* { rx+15 . 5 ) * (rx+15.5) ) ) ) ; 

(rx+4 .5) * (rx+4 .5) ) +exp(n* (rx+5.5) * (rx+5. 5) ) + 
rx+6.5) * (rx+6.5) ) +exp (n* (rx+7. 5) * (rx+7. 5) ) + 
rx+8 . 5 ) * ( rx+8.5)) +exp ( n* ( rx+9 . 5 ) * ( rx+ 9.5)) + 
rx+10.5)* (rx+10.5) ) +exp (n* (rx+11 . 5) * ( rx+11 . 5) ) + 
rx-4.5)* (rx-4.5) ) +exp (n* (rx-5 . 5 ) * (rx-5 . 5) ) + 
rx-6.5) * (rx-6. 5) ) +exp (n* (rx-7.5) * (rx-7.5) ) + 
rx-8.5)* (rx-8.5) ) +exp (n* (rx-9.5) * (rx-9.5) ) + 
rx-10.5) * (rx-10. 5) ) +exp(n* (rx-11 . 5) * ( rx-11 . 5) ) ) / 
rx+0.5) * (rx+0.5) )+exp(n* (rx+1 . 5) * (rx+1 . 5 ) ) + 
rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp (n* ( rx+3 . 5 ) * ( rx+3 . 5 ) ) + 
rx+12.5)* (rx+12.5) )+exp(n* (rx+13 . 5) * (rx+13 . 5) ) + 
rx+14.5)* (rx+14.5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) + 
rx-0.5) * (rx-0.5) ) +exp(n* (rx-1. 5) * (rx-1. 5) ) + 
rx-2.5) * (rx-2.5) )+exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
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exp (n* 
exp (n* 

L_d3 = log* (exp (n* 
exp(n* 
exp (n* 
exp (n* 
exp {n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



L d4 



m 



log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx-12.5) * (rx-12.5) )+exp(n* (rx-13 . 5) * (rx-13 . 5) ) + 
rx-14 .5) * (rx-14.5) )+exp(n* (rx-15 . 5) * (rx-15 . 5) ) ) ) ; 

(rx+0.5)* (r'x+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
rx+6.5) * (rx+6. 5) ) +exp(n* (rx+7 .5) * (rx+7. 5) ) + 
rx+8 .5) * (rx+8. 5) ) +exp(n* (rx+9.5) * (rx+9. 5) ) + 
rx+14 .5) * (rx+14 .5) ) +exp<n* (rx+15 . 5) * (rx+15 . 5) ) + 
rx-0 .5) * (rx-0.5) ) +exp(n* (rx-1 .5) * (rx-1. 5) ) + 
rx-6.5) * (rx-6.5) ) +exp(n* (rx-7 .5) * (rx-7. 5) ) + 
rx-8 .5) * (rx-8.5) ) +exp(n* (rx-9.5) * (rx-9. 5) ) + 
rx-14.5) * (rx-14 .5) )+exp(n* (rx-15 . 5) * (rx-15 . 5) ) ) / 
rx+4 .5) * (rx+4.5) ) +exp (n* (rx+5 . 5) * (rx+5.5) ) + 
rx+2 .5) * (rx+2 . 5) ) +exp (n* (rx+3 . 5) * (rx+3 . 5 ) ) + 
rx+12.5) * (rx+12.5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
rx+10.5} * (rx+10.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
rx-4.5)* (rx-4.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
rx-2.5) * (rx-2.5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
rx-12.5)* (rx-12.5) ) +exp (n* ( rx-13 . 5) * (rx-13.5) ) + 
rx-10 .5) * (rx-10.5) ) +exp(n* (rx-10.5) * (rx-10. 5) ) ) ) ; 

( rx+2 . 5 ) * ( rx+2 . 5 ) ) +exp <n* < rx+1 . 5 ) * ( rx+1 . 5 ) ) + 
rx+6. 5) * (rx+6. 5) ) +exp (n* (rx+5 . 5) * (rx+5.5) ) + 
rx+10.5) * (rx+10.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
rx+14 .5) * (rx+14. 5) ) +exp (n* (rx+13 . 5) * (rx+13 . 5) ) + 
rx-2 .5) * (rx-2.5) ) +exp (n* (rx-1 . 5) * (rx-1. 5) ) + 
rx-6. 5) * (rx-6.5) ) +exp (n* (rx-5 . 5) * (rx-5.5) ) + 
rx-10.5) * (rx-10.5) )+exp{n* (rx-9.5) * (rx-9.5) ) + 
rx-14.5) * (rx-14.5) )+exp(n* (rx-13. 5) * (rx-13. 5) ) ) / 
rx+4 . 5) * (rx+4. 5) ) +exp (n* (rx+3 . 5) * (rx+3. 5) ) + 
rx+7 . 5 ) * ( rx+7 . 5 ) ) +exp ( n* ( rx+8 . 5 ) * ( rx+8 . 5 ) ) + 
rx+12.5) * (rx+12.5) )+exp(n* (rx+11.5) * (rx+11.5) ) + 
rx+0.5) * (rx+0.5) ) +exp (n* ( rx+15 . 5) * (rx+15. 5) ) + 
rx- 4 . 5 ) * { rx-4 . 5 ) ) +exp ( n* ( rx-3 . 5 ) * ( rx-3 . 5 ) ) + 
rx-7 . 5) * (rx-7 . 5) ) +exp (n* ( rx-8 . 5) * (rx-8 . 5) ) + 
rx-12 .5) * (rx-12.5) ) +exp(n* (rx-11.5) * (rx-11 . 5) ) + 
rx-0.5) * (rx-0.5) ) +exp (n* ( rx-15 . 5) * (rx-15. 5) ) ) ) ; 





Dl_data[i] 




L dO; 




Dl_data[i+1] 




L dl; 




Dl data[i+2] 




L d2; 




Dl_data[i+3] 




L d3; 




Dl parity[i] 




L d4; 




Dl_parity [i+1] 




0.0; 


BE? 


Dl_parity [i+2] 




0.0; 


— 


Dl_parity [i+3] 




0.0; 


Clif 


Dl_parity [i+4] 




0.0; 




Dl_parity [i+6] 




0.0; 



/* symbol 1, I dimension */ 

dO = data [i+4]; 

dl - data[i+5 3; 

d2 = datati+6] ; 
d3 = Encl[i+5] ; 
d4 = Enc2[i] ; 

tx = 2*d2 - 2*d3 + 4*d2*d3 - 1.0 + ( ( (2*d2-l) * (2*d3-l) ) <0? (d4-0 . 5 ) : ( 0 . 5-d4 ) ) ; 
tx = (dl == 0 ? (tx - 4): (4 - tx) ) ; 
tx = (dO == 0 ? (tx - 8): (8 - tx) ) ; 
rx = tx + SIGMA_710_1024QAM * gasdev(); 

L_d0 = log((exp{n*(rx-0.5)*.(rx-0.5))+exp(n*(rx-1.5)*{rx-1.5)) + 
exp(n* (rx-2.5) * (rx-2.5) ) +exp (n* (rx-3 , 5) * (rx-3.5) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) ) +exp (n* (rx-5 . 5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) ) +exp(n* (rx-7 . 5) * (rx-7. 5) ) + 
exp(n* (rx-8 .5) * (rx-8 .5) } +exp (n* (rx-9 . 5) * (rx-9.5) ) + 
exp(n* (rx-10.5) * (rx-10.5) )+exp(n* (rx-11.5) * (rx-11.5) ) + 
exp(n* (rx-12 .5) * (rx-12.5) )+exp(n* (rx-13. 5) * (rx-13. 5) ) + 
exp(n* (rx-14 .5) * (rx-14.5) )+exp(n* (rx-15. 5) * (rx-15. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2. 5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
exp (n* (rx+4 .5) * (rx+4 .5) ) +exp(n* (rx+5 .5) * (rx+5.5) ) + 
exp(n* (rx+6. 5) * (rx+6. 5) )+exp(n* (rx+7. 5) * (rx+7. 5) ) + 
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exp(n* (rx+8.5)* (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+10.5)* (rx+10.5) )+exp(n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp (n* (rx+12 .5) * (rx+12.5) )+exp(n* (rx+13 .5) * (rx+13.5) ) + 
exp(n* (rx+14.5) * (rx+14.5) ) +exp (n* { rx+15 . 5) * (rx+15.5) ) ) ) ; 

log( (exp (n* (rx-0.5) * (rx-0.5) ) +exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2 .5) * (rx-2 .5) ) +exp (n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4 .5) * (rx-4 . 5) ) +exp (n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5) * (rx-7.5) ) + 
exp(n* (rx+0.5) * (rx+0 .5) ) +exp (n* (rx+1 .5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) + 
exp(n* (rx+4 .5) * (rx+4 .5) ) +exp (n* (rx+5.5) * (rx+5.5) ) + 
exp{n* (rx+6.5) * (rx+6.5) ) +exp (n* (rx+7 . 5) * (rx+7 .5) ) ) / 
(exp(n* (rx-8 . 5) * (rx-8 .5) ) +exp (n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-10.5)* (rx-10.5) ) +exp (n* (rx-11 . 5) * (rx-11. 5) ) + 
exp(n* (rx-12.5) * (rx-12.5) ) +exp(n* (rx-13.5) * (rx-13.5) ) + 
exp(n* (rx-14 .5) * (rx-14.5) )+exp(n* (rx-15.5) * (rx-15.5) ) + 
exp(n* (rx+8. 5) * (rx+8 .5) ) +exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp(n* (rx+12 . 5) * (rx+12.5) ) +exp (n* (rx+13 . 5) * (rx+13 . 5) ) + 
exp(n* (rx+14 . 5) * (rx+14.5) ) +exp (n* (rx+15 . 5) * (rx+15.5) ) ) ) ; 

log ( ( exp ( n* ( rx+4 . 5 ) * ( rx+4 . 5 ) ) +exp <n* ( rx+5 . 5 ) * ( rx+5 . 5 ) ) + 
exp(n* (rx+6.5) * {rx+6. 5) ) +exp (n* (rx+7 .5) * (rx+7. 5) ) + 
exp (n* (rx+8 .5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp (n* (rx+10.5) * (rx+10.5) )+exp{n* (rx+11. 5) * (rx+11. 5) ) + 
exp (n* (rx-4 .5) * (rx-4 .5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-7.5)* (rx-7.5) ) + 
exp (n* (rx-8 .5) * (rx-8. 5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp (n*.( rx-10.5) * (rx-10.5) ) +exp{n* (rx-11. 5) * (rx-11. 5) ) ) / 
(exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3.5) * (rx+3.5) ) + 
exp(n* (rx+12.5) * (rx+12.5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
exp (n* (rx+14.5)* (rx+14.5) ) +exp (n* (rx+15 . 5) * (rx+15 . 5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-12.5) * (rx-12 .5) ) +exp(n* (rx-13.5) * (rx-13. 5) ) + 
exp(n* (rx-14.5) * (rx-14 .5) ) +exp(n* (rx-15.5) * (rx-15. 5) ) ) ) ; 

log( (exp (n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+1.5) * (rx+1 .5) ) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+7. 5) * (rx+7. 5) ) + 
exp(n* (rx+8.5) * (rx+8.5) )+exp(n* (rx+9.5) * (rx+9.5) ) + 
exp(n* (rx+14.5) * (rx+14 .5) ) +exp(n* (rx+15.5) * (rx+15.5) ) + 
exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-1.5)* (rx-1.5) ) + 
exp(n* (rx-6.5)* (rx-6.5) )+exp(n* (rx-7.5)* (rx-7.5) ) + 
exp(n* (rx-8 .5) * (rx-8. 5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-14.5) * (rx-14 .5) ) +exp(n* (rx-15.5) * (rx-15.5) ) ) / 
(exp(n* (rx+4. 5) * (rx+4. 5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+2.5) * (rx+2.5) )+exp(n* (rx+3 . 5 ) * (rx+3 . 5) ) + 
exp (n* (rx+12 . 5) * (rx+12 . 5) ) +exp (n* (rx+13 . 5) * (rx+13 . 5) ) + 
exp(n* (rx+10.5)* (rx+10.5) ) +exp (n* (rx+11 . 5) * (rx+1 1.5) ) + 
exp (n* (rx-4 . 5) * (rx-4 . 5) ) +exp (n* (rx-5 . 5) * (rx-5. 5) ) + 
exp (n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3 .5) * (rx-3.5) ) + 
exp (n* (rx-12.5) * (rx-12 .5) )+exp(n* (rx-13.5) * (rx-13.5) ) + 
exp(n* (rx-10.5) * (rx-10.5) ) +exp (n* ( rx-10 . 5) * (rx-10.5) ) ) ) / 

log( (exp(n* (rx+2 . 5) * (rx+2 . 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
exp(n* (rx+6.5) * (rx+6.5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
exp(n* (rx+10.5) * (rx+10.5) )+exp(n* (rx+9.5)* (rx+9.5) ) + 
exp (n* (rx+14 . 5) * (rx+14.5) ) +exp (n* ( rx+13 . 5) * (rx+13.5) ) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
exp(n* (rx-6.5) * (rx-6.5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(n* (rx-10.5) * (rx-10.5) ) +exp(n* (rx-9 . 5) * ( rx-9 . 5 ) ) + 
exp(n* (rx-14.5)* (rx-14.5) ) +exp (n* (rx-13 . 5) * (rx-13 . 5) ) )/ 
(exp(n* (rx+4 .5) * (rx+4 .5) )+exp(n* (rx+3.5) * (rx+3.5) ) + 
exp (n* (rx+7 .5) * (rx+7. 5) )+exp(n* (rx+8.5)* (rx+8.5) ) + 
exp(n* (rx+12.5)* (rx+12.5) ) +exp (n* (rx+11 . 5) * (rx+11 . 5) ) + 
exp(n* (rx+0.5) * (rx+0.5) )+exp(n* (rx+15.5) * (rx+15.5) ) + 
exp(n* (rx-4. 5)* (rx-4. 5) )+exp(n* (rx-3.5)* (rx-3.5) ) + 
exp(n* (rx-7.5)* (rx-7.5) ) +exp (n* (rx-8 . 5) * (rx-8 . 5) ) + 
exp(n*(rx-12.5) * ( rx-12 . 5 } ) +exp (n* (rx-11. 5) * (rx-11. 5) ) + 
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exp(n* (rx-0.5) * (rx-0.5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) ) ; 



Dl_data[i+4] = L_dO; 

Dl_data[i+5] = L_dl; 

Dl_data[i+6] = L_d2; 

Dl_parity [i+5] = L_d3; 

D2_parity[i] = L_d4; 

D2_parity[i+1] = 0.0; 

D2_parity [i+2] = 0.0; 

D2_parity[i+3] = 0.0; 

D2_parity [i+4] = 0.0; 

D2_parity [i+6] = 0.0; 



sW4 



150 

JSBP, 



rs 



/* symbol 2, Q dimension */ 
dO 
dl 
d2 
d3. 
d4 
tx 
tx 
tx 

rx = tx + SIGMA_710_1024QAM * gasdev(); 
L_d0 = log( (exp(n* (rx-0.5) * (rx-0.5) ) +exp (n* (rx-1 



symbol 2, Q dimension 

= data[i+7] ; 

= data [i+8] ; 

- data[i+9] ; 

= data[i+10] ; 

= Enc2 £i+5] ; 

= 2*d2 - 2*d3 + 
= (dl == 0 ? (tx 
= (dO == 0 ? (tx 



4*d2*d3 - 1.0 + ( ( (2*d2-l) * <2*d3-l) )<0? (d4-0.5) : (0.5-d4) ) 

- 4) : (4 - tx) ) ; 

- 8) : (8 - tx) ) ; 



L dl 



L d2 



exp (n 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

log { (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
(exp<n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 

log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
exp (n* 



-2.5) * (rx-2.5 
-4.5) * (rx-4.5 
-6.5) * (rx-6.5 
-8.5) * (rx-8.5 



rx-10.5) * (rx-10 
rx-12.5)*(rx-12 
rx-14.5)*(rx-14 
rx+0.5) * (rx+0.5 
rx+2.5)*(rx+2.5 
rx+4 . 5) * (rx+4 . 5 
rx+6.5) * (rx+6.5 
rx+8.5) * (rx+8 .5 
rx+10.5) * (rx+10 
rx+12.5)*(rx+12 
rx+14 .5) * (rx+14 



(rx-0 
rx-2 . 
rx-4 . 
rx-6 . 
rx+0 . 
rx+2. 
rx+4 . 
rx+6. 
rx-8 . 
rx-10 
rx-12 
rx-14 
rx+8 . 
rx+10 
rx+12 
rx+14 

(rx+4 . 
rx+6. 
rx+8 . 
rx+10 
rx-4 
rx-6 
rx-8 
rx-10 
rx+0 . 
rx+2. 
rx+12 
rx+14 
rx-0 
rx-2 



.5)*(rx-0. 
5) * (rx-2.5 
5) * (rx-4 
5) * (rx-6 
5) * (rx+0 
5) * (rx+2 
5) * (rx+4 
5) * (rx+6 
(rx- 
(rx 



5)' 
5)' 

5) * (rx-12 
.5) * (rx-14 
5) * (rx+8.5 
.5)*(rx+10 
.5)*(rx+12 
.5)*(rx+14 



.5)* (rx-1. 5) ) + 
)+exp(n*(rx-3.5)*(rx-3.5) ) + 
)+exp<n*(rx-5.5)*(rx-5.5) ) + 
)+exp(n*(rx-7.5)*(rx-7.5) ) + 
) +exp(n* (rx-9.5) * (rx-9.5) ) + 
5) )+exp(n* (rx-1 1.5) * (rx-11.5) ) 
5) )+exp(n* (rx-13.5) * (rx-13, 
5) ) +exp(n* (rx-15.5) * (rx-15. 
) +exp (n* (rx+1 . 
) +exp (n* (rx+3 . 
) +exp (n* (rx+5 . 
) +exp (n* (rx+7 . 
) +exp (n* (rx+9 . 



5)*{rx+1.5)) 
5).* (rx+3. 5) ) 
5) * (rx+5. 5) ) 
5)*(rx+7.5) ) 
5) * (rx+9. 5) ) 
5) >+exp(n*(rx+11.5)* (rx+1 1.5) ) 
5) )+exp(n*(rx+13.5)*(rx+13.5) ) 
5) )+exp(n* (rx+15.5)*(rx+15.5) ) ) ) ; 



5)) + 
5)) )/ 
+ 
+ 
+ 
+ 
+ 

+ 
+ 



+ 
+ 
+ 
+ 
+ 
+ 
+ 



5) )+exp(n*{rx-1.5)*{rx-1.5) ) 
.) +exp(n* (rx-3 .5) * (rx-3 .5) ) 
)+exp(n* (rx-5.5) * (rx-5.5) ) 
) +exp(n* (rx-7 .5) * (rx-7 .5) ) 
) +exp(n* (rx+1. 5) * (rx+1. 5) ) 
) +exp(n* (rx+3. 5) * (rx+3. 5) ) 
)+exp(n* (rx+5. 5) * (rx+5. 5) ) 
)+exp(n* (rx+7. 5) * (rx+7. 5) ) ) / 
)+exp(n*(rx-9.5)*(rx-9.5) ) + 
5) ) +exp (n* (rx-11.5) * (rx-11 .5) ) 
5) ) +exp (n* (rx-13.5) * (rx-13.5) ) 
5) )+exp(n* (rx-15.5)* (rx-15.5) ) 
) +exp(n* (rx+9 .5) * (rx+9. 5) ) + 
5) )+exp(n* (rx+1 1.5) * (rx+11.5) ) 
5) )+exp(n* (rx+13.5) * (rx+13.5) ) 
5) )+exp(n* (rx+15.5) * (rx+15.5) ) ) ) ; 



+ 
+ 
+ 
.5) 
+ 
+ 
+ 



.5) * (rx+4 .5) ) +exp(n* (rx+5. 5) * (rx+5. 5) ) 
5) * (rx+6.5) ) +exp(n* (rx+7 .5) * (rx+7 .5) ) 
5)* (rx+8.5) )+exp(n*(rx+9.5)*(rx+9.5) ) 
.5)* (rx+10.5) )+exp(n* (rx+11 . 5) * (rx+11 
5)* (rx-4.5) )+exp(n* (rx-5.5)* (rx-5.5) ) 
5) * (rx-6.5) )+exp(n* (rx-7. 5) * (rx-7. 5) ) 
5) * (rx-8.5) )+exp(n* (rx-9.5) * (rx-9.5) ) 
.5) * (rx-10.5) ) +exp (n* (rx-11 .5) * (rx-11.5) ) ) / 
5) * (rx+0.5) ) +exp(n* (rx+1 .5) * (rx+1 .5) ) + 
5) * (rx+2. 5) )+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
.5)* (rx+12. 5) )+exp(n* (rx+13.5) * (rx+13.5) ) + 
.5)* (rx+14. 5) )+exp(n* (rx+15.5) * (rx+15.5) ) + 
5)* (rx-0.5) )+exp(n*(rx-1.5)*(rx-1.5) ) + 
5)* (rx-2.5) )+exp(n*(rx-3.5)*(rx-3.5) ) + 
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ilJ 



m 



exp (n* 
exp (n* 

L_d3 = log ( {exp (n* 
exp (n* 
exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp(n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d4 = log ( (exp (n** 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp(n* 
exj5 (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 



rx-12.5) * (rx-12.5) ) +exp(n* (rx-13. 5) * (rx-13.5) ) + 
rx-14.5) * (rx-14.5) ) +exp(n* (rx-15. 5) * (rx-15.5) ) ) > ; 



(rx+0 
rx+6. 
rx+8 . 
rx+14 
rx-0 . 
rx-6 . 
rx-8 . 
rx-14 
rx+4 . 
rx+2 . 
rx+12 
rx+10 
rx-4 
rx-2 
rx-12 
rx-10 

(rx-f2 
rx+6. 
rx+10 
rx+14 
rx-2. 
rx-6 . 
rx-10 
rx-14 
rx+4 . 
rx+7 . 
rx+12 
rx+0 . 
rx-4 . 
rx-7 . 
rx-12 
rx-0 



+ 
+ 

5)))/ 

+ 

+ 



.5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
5) * (rx+6. 5) ) +exp(n* (rx+7. 5) * (rx+7 .5) ) + 
5) * (rx+8 .5) ) +exp(n* (rx+9.5) * (rx+9.5) ) + 
.5) * (rx+14. 5) ) +exp(n*(rx+15.5) * (rx+15.5) ) 
5) * (rx-0. 5) )+exp(n* (rx-1.5) * (rx-1.5) ) + 
5)* (rx-6. 5) )+exp(n* (rx-7.5)* (rx-7. 5) ) 
5) * (rx-8. 5) )+exp(n* (rx-9.5) * (rx-9.5) ) 
.5) * (rx-14.5) ) +exp(n*<rx-15.5) * (rx-15 
5) * (rx+4 .5) )+exp(n* (rx+5.5) * (rx+5.5) ) 
5)* (rx+2. 5) )+exp(n* (rx+3.5)* (rx+3.5) ) 
5) * (rx+12. 5) )+exp(n* (rx+13..5) * (rx+13.5) ) + 
.5) * (rx+10. 5) )+exp(n*(rx+11.5)* (rx+11.5) ) + 
5)* (rx-4. 5) )+exp(n* (rx-5.5)* (rx-5.5) ) + 
5)* (rx-2. 5) )+exp(n*(rx-3.5)*(rx-3.5) ) + 
5) * (rx-12.5) )+exp(n*(rx-13.5) * (rx-13.5) ) + 
5) * (rx-10. 5) )+exp(n* (rx-10. 5) * (rx-10. 5) ) ) ) ; 

.5) * (rx+2. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
5) * (rx+6. 5) )+exp(n* (rx+5.5) * (rx+5.5) ) + 
5) * (rx+10. 5) ) +exp(n* (rx+9.5) * (rx+9.5) ) + 
5) * (rx+14. 5) ) +exp(n* (rx+13.5) * (rx+13.5) ) + 
5)* (rx-2. 5) )+exp(n* (rx-1.5)* (rx-1.5) ) + 
5)* (rx-6. 5) )+exp(n* (rx-5.5)* (rx-5.5) ) + 
.5) * (rx-10. 5) ) +exp(n* (rx-9.5) * (rx-9.5) ) + 
.5) * (rx-14.5) ) +exp(n*(rx-13.5) * (rx-13 . 5) ) ) / 
5)* (rx+4. 5) )+exp(n*<rx+3.5)*(rx+3.5) ) + 
5)* (rx+7. 5) )+exp(n*(rx+8.5)* (rx+8. 5) ) + 
.5)* (rx+12.5) )+exp(n* (rx+11.5)* (rx+11.5) ) + 
5)* (rx+0. 5) )+exp(n* (rx+15.5)* (rx+15.5)) + 
5)* (rx-4. 5) )+exp(n*(rx-3.5)*(rx-3.5) ) + 
5)* (rx-7. 5) )+exp(n*(rx-8.5)*(rx-8.5) ) + 
.5) * (rx-12.5) )+exp(n*(rx-11.5)*(rx-11.5) ) + 
5) * (rx-0. 5) )+exp(n* (rx-15.5) * (rx-15.5) ) ) ) ; 



Dl_data[i+7] = L_dO; 
Dl_data[i+8] = L_dl; 
Dl_data[i+9] = L_d2; 
Dl_data[i+10] = L_d3; 
D2_parity [i+5] = L_d4; 
D2_parity [i+7] = 0.0; 
D2_parity [i+8] = 0.0; 
D2_parity [i+9] = 0.0; 
D2_parity [i+11] = 0.0; 
D2_parity [i+12] = 0.0 
D2_parity[i+13] = 0.0 



/* 
dO 
dl 
d2 = 
d3 = 
d4 - 
tx 

tx = 
tx = 
rx 

L dO 



symbol 2, I dimension 
= data[i+ll] 
= data[i+12] 
= data[i+13] 
= Enc2[i+10] 
= Encl [i+10] , 
= 2*d2 - 2*d3 + 
= (dl == 0 ? (tx 
= (dO == 0 ? (tx 



( (2*d2-l) * (2*d3-l) )<0?(d4-0.5) : (0.5-d4) ) ; 



4*d2*d3 - 1.0 + 

- 4): (4 - tx)); 

- 8) : (8 - tx) ) ; 

= tx + SIGMA_710_1024QAM * gasdev(); 

= log((exp(n*(rx-0.5)*(rx-0.5))+exp(n*(rx-1.5)*(rx-1.5)) + 
exp(n* (rx-2. 5) * (rx-2. 5) )+exp(n* (rx-3.5) * (rx-3.5) ) + 
exp(n* (rx-4 .5) * (rx-4 .5) )+exp(n* (rx-5.5) * (rx-5.5) ) + 
exp(h* (rx-6. 5)* (rx-6. 5) )+exp(n* (rx-7.5) * (rx-7.5) ) + 
exp'(n* (rx-8. 5) * (rx-8. 5) )+exp(n* (rx-9.5) * (rx-9.5) ) + 
exp(n* (rx-10. 5) * (rx-10. 5) )+exp(n* (rx-11.5) * (rx-11.5) ) 



exp(n* (rx-12.5) * (rx-12.5) ) +exp(n* (rx-13.5) * (rx-13. 5) ) + 
exp(n* (rx-14 .5) * (rx-14.5) ) +exp(n* (rx-15.5) * (rx-15.5) ) ) / 
( exp (n*{ rx+0. 5)* (rx+0. 5) ) +exp (n* (rx+1 . 5) * (rx+1 . 5) ) + 
exp(n* (rx+2. 5) * (rx+2 .5) ) +exp(n* (rx+3.5) * (rx+3.5) ) + 
exp(n* (rx+4 . 5) * (rx+4 .5) ) +exp(n* (rx+5 . 5) * (rx+5 . 5) ) + 
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exp 
exp 
exp 
exp 
exp 



m 

Q 
q 



L_dl = log { (exp (n^ 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d2 « log( (exp(n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp {n* 
exp (n* 

L_d3 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 

L_d4 = log ( (exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
exp (n* 
(exp (n* 
exp (n* 
exp (n* 
exp {n* 
exp {n* 
exp (n* 



rx+6.5)*(rx+6.5 
rx+8.5)*{rx+8.5 
rx+10.5) * {rx+10 
rx+12.5) * {rx+12 
rx+14.5) * (rx+14 



(rx-0 
rx-2. 
rx-4 . 
rx-6. 
rx+0. 
rx+2 . 
rx+4 . 
rx+6 . 
rx-8 . 
rx-10 
rx-12 
rx-14 
rx+8 . 
rx+10 
rx+12 
rx+14 

(rx+4 . 
rx+6 
rx+8 
rx+10 
rx-4 . 
rx-6 . 
rx-8 . 
rx-10 
rx+0 . 
rx+2 . 
rx+12 
rx+14 
rx-0. 
rx-2. 
rx-12 
rx-14 

(rx+0. 
rx+6. 
rx+8 . 
rx+14 
rx-0 . 
rx-6 
rx-8 
rx-14 
rx+4 . 
rx+2 . 
rx+12 
rx+10 
rx-4 . 
rx-2 . 
rx-12 
rx-10 

(rx+2. 
rx+6. 
rx+10 
rx+14 
rx-2. 
rx-6 . 
rx-10 
rx-14 
rx+4 . 
rx+7 . 
rx+12 
rx+0 
rx-4 
rx-7 



.5) * (rx-0 
5)*{rx-2 
5)*{rx-4 
5) * (rx-6 
5)*<rx+0 
5) * (rx+2 
5) * (rx+4 
5) * (rx+6 
5)*(rx-8 
.5) * (rx-10 
.5) * (rx-12 
.5) * (rx-14 
5)*(rx+8.5 
.5) * (rx+10 
.5) * (rx+12 
.5) * (rx+14 



5) ) +exp (n* {rx-1 .5) * 
)+exp(n*(rx-3.5)* 
)+exp(n*(rx-5.5)* 
)+exp(n*(rx-7.5)* 
)+exp(n*(rx+1.5)* 
) +exp{n* (rx+3. 5) * 
) +exp(n* (rx+5. 5) * 
) +exp (n* (rx+7 . 5) * 
) +exp(n* (rx-9. 5) * 
5) )+exp(n*(rx-ll. 
5) )+exp(n*(rx-13. 
5) )+exp(n* (rx-15. 
) +exp (n* (rx+9. 5) * 
5) ) +exp(n* (rx+11. 
5) ) +exp(n* (rx+13. 
5) ) +exp (n* (rx+15 . 



.5) * (rx+2 
5)*(rx+6.5 
.5) * (rx+10 
.5)*(rx+14 
5)*(rx-2.5 
5)*(rx-6.5 
5)* (rx-10 
.5) * (rx-14 
5)* (rx+4. 5 
5)*(rx+7.5 
.5)*(rx+12 
5)*(rx+0.5 
5)*(rx-4.5 
5)*(rx-7.5 



)+exp(n*(rx+7.5)*(rx+7.5)) + 
)+exp(n*(rx+9.5)*(rx+9.5)) + 
5))+exp(n*(rx+11.5)*(rx+11.5)) + 
5))+exp(n*(rx+13.5)*(rx+13.5)) + 
5) )+exp(n*(rx+15.5)*(rx+15.5) ) ) ) ; 



Mrx-1.5)) + 
(rx-3.5)) + 
(rx-5.5)) + 
{rx-7. 5)) + 
(rx+1.5)) + 
(rx+3. 5)) + 
(rx+5. 5)) + 
(rx+7. 5) ) )/ 
(rx-9.5)) + 
5)* (rx-11.5) ) + 
5)* (rx-13.5) ) + 
5)* (rx-15. 5)) + 
(rx+9. 5)) + 
5) * (rx+11. 5) ) + 
5)* (rx+13. 5) ) + 
5)*(rx+15.5)))); 



.5) * (rx+4. 5) )+exp(n* (rx+5. 5) * (rx+5. 5) ) + 
5)* (rx+6. 5) )+exp(n* (rx+7. 5)* (rx+7. 5) ) + 
5) * (rx+8. 5) ) +exp(n* (rx+9. 5) * (rx+9. 5) ) + 
.5) * (rx+10.5) ) +exp(n* (rx+11 . 5) * (rx+11 . 5) ) + 
5)* (rx-4. 5) )+exp(n* (rx-5.5)* (rx-5.5) ) + 
5) * (rx-6. 5) ) +exp(n* (rx-7. 5) * (rx-7. 5) ) + 
5) * (rx-8. 5) ) +exp(n* (rx-9.5) * (rx-9.5) ) + 

5) * (rx-10. 5) )+exp(n* (rx-11 . 5) * (rx-11 .5) ) ) / 
5)* (rx+0. 5) )+exp(n* (rx+1.5)* (rx+1.5) ) + 
5)* (rx+2. 5) )+exp(n*(rx+3.5)*(rx+3.5) ) + 
.5) * (rx+12.5) ) +exp(n* {rx+13. 5) * (rx+13. 5) ) + 
.5)* (rx+14.5) )+exp{n* (rx+15. 5)* (rx+15. 5) ) + 
5)* (rx-0. 5) )+exp(n*(rx-1.5)*(rx-1.5) ) + 
5)* (rx-2. 5) )+exp(n* (rx-3.5)* (rx-3.5) ) + 
.5) * {rx-12. 5) )+exp{n* (rx-13.5)* (rx-13.5) ) + 
.5) * (rx-14. 5) )+exp(n* {rx-15. 5) * (rx-15. 5) ) ) ) ; 

.5) * (rx+0. 5) )+exp(n* (rx+1.5) * (rx+1.5) ) + 
5)* (rx+6. 5) )+exp(n*(rx+7.5)*{rx+7.5) ) + 
5)* {rx+8. 5) ) +exp (n* (rx+9. 5) * {rx+9. 5) ) + 
.5) * (rx+14.5) )+exp(n* {rx+15. 5) * {rx+15. 5) ) + 
5)* (rx-0. 5) )+exp(n*(rx-1.5)*{rx-1.5) ) + 
5)* {rx-6. 5) )+exp(n*(rx-7.5)* {rx-7. 5) ) + 
5 ) * { rx-8 . 5 ) ) +exp (n* ( rx-9 . 5 ) * ( rx-9 . 5 ) ) + 

5) * (rx-14 . 5) ) +exp(n* {rx-15. 5) * (rx-15. 5} ) ) / 
5)* (rx+4. 5) )+exp(n* (rx+5. 5)* (rx+5. 5) ) + 
5) * {rx+2. 5) ) +exp(n* (rx+3. 5) * (rx+3. 5) ) + 
5) * (rx+12.5) )+exp(n* (rx+13. 5) * (rx+13. 5} ) + 
5) * (rx+10.5) ) +exp(n* (rx+11. 5) * (rx+11. 5) ) + 
5) * (rx-4. 5) ) +exp(n* (rx-5.5) * (rx-5.5) ) + 
5)* (rx-2. 5) ) +exp(n* (rx-3 . 5) * (rx-3 . 5) ) + 
.5) * (rx-12. 5) )+exp(n* (rx-13 . 5) * (rx-13 . 5) ) + 
.5)*(rx-10 



5) 



5) )+exp(n* (rx-10. 5)* (rx-10. 5) ) ) ) ; 

)+exp{n*(rx+1.5)*(rx+1.5)) + 
)+exp(n*(rx+5.5)*(rx+5.5) ) + 
5) )+exp(n* (rx+9. 5) * (rx+9. 5) ) + 
5))+exp(n*(rx+13.5)*(rx+13.5)) + 
)+exp(n*(rx-1.5)*(rx-1.5) ) + 
)+exp(n* (rx-5.5) * (rx-5.5) ) + 
5))+exp(n*(rx-9.5)*(rx-9.5)) + 
5) )+exp(n* (rx-13.5) * (rx-13.5) ) ) / 
)+exp(n* (rx+3. 5) * (rx+3. 5) ) + 
)+exp(n*(rx+8.5)*(rx+8.5) ) + 
5))+exp(n*(rx+11.5)*(rx+11.5)) + 
)+exp(n*(rx+15.5)* {rx+15. 5) ) + 
)+exp(n*(rx-3.5)*(rx-3.5) ) + 
)+exp(n*(rx-8.5)*(rx-8.5)) + 
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exp(n* (rx-12.5) * (rx-12.5) ) +exp(n* (rx-11 . 5) * (rx-11 .5) ) - 
exp<n*(rx-0.5)* (rx-0.5) )+exp(n* (rx-15 . 5) * (rx-15 . 5) ) ) ) ; 



Dl_data[i+ll] = L_dO 

Dl_data[i+12j = L_dl 

Dl_data[i+13] = L_d2 

D2_parity [i+10] = L_d3; 

Disparity [i+10] = L_d4; 

Disparity [i+7] =0.0 

Dl_parity [i+8] = 0.0 

Dl_parity Ci+9] = 6.0 

Disparity [i+11] = 0.0 

Dl_parity[i+12] = 0.0 

Dl_parity[i+13] = 0.0 



i = i+13; 

} 

#endif 



/* 

* At this moment we received the whole turbo code block: 

* Dl_data[] stores the received information sequence, 

* Dl_parity[] stores the received punctured parity P sequence and 

* D2_data[] stores the interleaved received information sequence, 
*/ . 

ford = 0; i < INT_SIZE; 

D2_data[i] = Dl_data[i]; 
r_ileav(D2_data / rule); 
/* 

* D2_parity[] stores the received punctured parity Q sequence. 
*/ 

for (iteration = 1; iteration <= NR_ITER; iteration++) 
< 

/* 

* Start one iteration of the turbo decoder here: 
*/ 

#ifdef R4 6_64QAM_TTCM_VoCAL 

jat_map2 { jat_codel, Dl_data, Dl_parity, Dl_app, Dl_exi) ; 



#else 
#endif 



jat_mapl ( jat_codel, Dl_data, Disparity, Dl_app, Dl_exi) ; 
/* 

* Interleave the extrinsic information from Decoderl : 
*/ 

for{k =0; k < INT_SIZE; k++) 

D2_app[k] = Dl_exi[k]; 
r_ileav (D2_app, rule) ; 

/* 

* Decoder2: 
. */ 

#ifdef R4 6__64QAM_TTCM_VoCAL 

jat_map2 ( jat_code2, D2__data, D2_parity, D2_app, D2_exi); 

#else 

jat_mapl ( jat_code2, D2_data, D2_parity, D2_app, D2_exi) ; 

#endif 

/* 

* Deinterleave the extrinsic information from Decoder2: 
V 

r_deileav ( D2_exi , rule ) ; 
for{k = 0; k < INT_SIZE; k++) 
Dl_app[k] = D2_exi[k]; 
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#ifdef R4 6_64GAMJITCM_VoCAL 

for{k = 0; k < INT_SIZE/2; k++) 

Dec_data[k] = Dl_data[k] + log {Dl_exi [k] ) + log (D2_exi [ k] ) ; 

/* 

* Re-encode with encoderl: 
*/ 

jat__codel->enc_state = 0; /* reset encoderl' s state */ 

for(k = 0; k < INT_SIZE/2; k++) 

Encl[k] = jat_enc_bp_fp( jat_codel, ( (Dec_data [ k] >0.0)?1:0)); 

/* 

* interleave data: 
*/ 

for(k =0; k < INT_SI2E/2; k++) 

data_i[k] = ( (Dec_data [ k] > 0.0)71:0); 
r_ileava (data_i, rule); 

/* 

* -Re-encode with encoder2 : 
*/ 

jat_code2->enc_state = 0; /* reset encoder2 ' s state */ 

for(k = 0; k < INT_SIZE/2; k++) 

Enc2[k] = jat_enc_bp_fp ( jat_code2, data_i[k]); 

/* 

* Find the closest point out of four in the sub-constellation 
*/ 

for(k =0; k < INT_SIZE/2 - 1; ) 
{ 

u4 = { (Dec_data[k] > 0.0)?1:0); 
u3 = ( (Dec_data[k+1] > 0.0)?1:0); 
u2 = Encl [k] ; 
ul = Enc2 [k+1] ; 

rx_I = Dl_data[k + INT_SIZE/2] ; 
rx_Q = Dl_data[k + INT_SIZE/2 + 1]; 



j = 4*u4+8*u3+16*u2+32*ul; 
v00_I = f ind_tx_I ( j ) ; 
v00_Q = f ind_tx_Q ( j ) ; 
v01_I = find_tx_I ( ; 
v01_Q = find_tx_Q( j+1) ; 
vl0_I = find_tx_I ( j+2) ; 
vl0_Q = find_tx_Q( j+2) ; 
vll_I = find_tx_I ( j+3) ; 
vll_Q = find_tx_Q( j+3) ; 

Dec_data[k+INT_SIZE/2] = log( 
(exp (n* { (rx_I-vll 

exp (n* { (rx_I-vl0 
(exp (n* ( (rx_I-v01* 

exp(n* ( (rx_I-v00~ 

Dec_data[k+INT_SIZE/2+l] 
(exp {n* { (rx_I-vll_ 

exp(n* ( (rx_I-v01_ 
(exp (n* ( (rx__I-vl0~ 

exp (n* { (rx_I-v0O_ 

k - k+2; 

} 

#else 

for(k = 0; k < INT_SIZE; k++) 

Dec_data[k] = Dl_data[k] + log (Dl_exi [ k] ) + log <D2_exi [ k] ) ; 

#endif 

/* 



_I) * {rx_I-vll_I) + {rx_Q-vll_Q) * (rx_Q-vll_Q) ) ) + 
_I) * (rx_I-vl0_I) + <rx_Q-vl0_Q) * ( rx_Q-vl0_Q) ) ) ) / 
_I) * (rx_I-v01_I) + {rx_Q-v01_Q) * (rx_Q-v01_Q) ) ) + 
_I ) * (rx_I-v00_I ) + (rx_Q-v00_Q) * (rx_Q-v00_Q) ) ) ) ) 

= log( 

_I ) * { rx_I - vl 1_I ) + ( rx_Q- vl 1_Q ) * { rx_Q- vl 1_Q ) ) ) + 
_I)*(rx_I-v01_I) + (rx_Q-v01_Q)*(rx_Q-v01_Q) ) ) )/ 
_I) * (rx_I-vl0_I) + (rx_Q-vl0_Q) * <rx_Q-vl0_Q) ) ) + 
_I)*{rx_I-v00_I) + (rx_Q-v00_Q)*{rx_Q-v00_Q) ) ) ) ) 
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* print errors : 
V 

k = print_err (data, Dec_data, iteration, block, no_err) ; 
if (k == 0) 
break; 

/* 

* End one iteration of the turbo decoder here. 
*/ 



jat_codel->POstate) ; 
jat_codel->Plstate) ; 
jat_codel->NOstate) ; 
jat_codel->Nlstate) ; 
jat__codel->CodedO) ; 
jat_codel->Codedl) ; 
jat_codel) ; 

jat_code2->P0state) ; ' 
jat__code2->Plstate) ; 
jat_code2->N0state) ; 
jat_code2->Nlstate) ; 
jat_code2->CodedO) ; 
jat_code2->Codedl) ; 
jat_code2) ; 
rule) ; 
data) ; 
data_i) ; 
data__d) ; 
no_err) ; 
Encl) ; 
Enc2) ; 
Dl^data) ; 
Dl_parity) ; 
Dl_app) ; 
Dl_exi) ; 
D2_data); 
D2_parity) ; 
D2_app) ; 
D2_exi) ; 
Dec_data) ; 
frame^hist) ; 
Zero_data) ; 
= THRESHOLD_ITER; i <= NR_ITER; 
f ree (bit_hist_array [i] ) ; 
bit__hist_array) ; 
bit hist block) ; 



i++) 



,/* jat_trellis_bp_fp ( ) initializes the code structure */ 
void jat_trellis_bp_fp { jat_code *code_str) 
{ 

int i; 

for(i =0; i < code_str->nr_states ; i++) 
{ 

code_str->enc_state = i; 

code_str->POstate [i] = jat_ps (code_str, 0) ; 
code_str->Plstate [i] = jat_ps (code_str, 1) ; 
code_str->enc_state = i; 

code_str->CodedO [i] = jat_enc_Jop_fp (code_str, 0); 

code_str->NOstate [i] = code_str->enc_state; /*next state i if d = 0 */ 
code_str->enc_state = i; 

code_str->Codedl [i] = jat_enc_bp_fp (code_str , 1); 

code_str->Nlstate [i] = code_str->enc_state; ■ /*next state i if d - 1 */ 

} 

} 
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/******************************** *********************************************/ 

/* jat_ps() returns the previous state, given the code structure & the input */ 
/* bit for the previous state */ 

/* input: current state, input bit for the previous state */ 

/* output: previous state */ 

int jat_ps ( jat_code *code_st, int inp) 
{ 

int pr_state, pr_msb, i, j , k, 1; 

if (code_st->enc_mem 1) 
{ 

pr_state = code_st->enc_state A inp; 

} 

else 
{ 

/*find previous state: */ 
pr_msb = (inp & 0x1) A (code_st->enc_state & 0x1); 

for (i=l, j=2, k= (1 « codecs t->enc_mem-l) , l=code_st->enc_mem-l; i<code_st- 

>enc_mem; i++, 1 — ) 
{ 

pr_msb = pr_msb A ( { (code_st->enc_state& j ) »i) & ( (code_st->bp&k) >>1) ) ; 
j = j « i; 

k = k » 1; 

} 

pr_state = ( (code_st->enc_state » 1) & ( { 1« (code_st->enc_mem - 1)) - 1)) | 
(pr_msb « (code_st->enc_mem - 1)); 

} 

return (pr_state); 

} 

/************** ******************************** *******************************/ 

/* j at_enc_bp_f p ( ) - rate 1/2 systematic feedback convolutional enc. */ 
/* input: input bit to be encoded */ 

/* output: the coded bit */ 

/* Note: the Isb of the enc_state will have the new input bit */ 
/* the msb of the enc_state matches the lsb of bp & fp */ 

int jat_enc_bp_fp { jat_code *code_st, int data) 
< 

int new_lsb, parity, i, j, k, 1; 

new_lsb = data; 
if (code_st->enc_mem == 1) 
{ 

parity = code_st->enc_state A data; 
code_st->enc_state = parity; 

} 

else 
{ 

/* xor it with the bits of the enc_statel for which bpl is one */ 
for(i = 0, j = 1, k = (1 « code_st->enc_mem-l) , 1 = code_st->enc_mem - 1; i < 
code_st->enc_mem; i++, 1--) 
{ 

new_lsb = new_lsb A ( ( (code_st->enc_state& j ) »i) & ( (code_st->bp&k) »1) ) ; 
j = j « 1; 
k = k » 1; 

} 

/* find the parity bit */ 
parity = new_lsb & ( (code_st->fp& ( l«code_st->enc_mem) ) » code_st->enc_mem) ; 
for(i = 0, j = 1, k = (1 « code_st->enc_mem-l) , 1 = code_st->enc_mem - 1; i < 
code_st->enc_mem; i++, 1 — ) 
{ 

parity = parity A ( ( (code_st->enc_state& j ) »i) & ( (code_st->fp&k) »1) ) ; 

j = j « 1; 
k = k » 1; 

} 
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/* update code_st->enc_state */ 
code_st->enc_state = { (code__st->enc_state & (code_st->nr_states/2 - 1)) « 1) | 
new_lsb; 
} 

return (parity) ; 

} 



void r_ileav (double *array, int *rule_i) 
{ 

double *i_wmem; 
int k; 

i_wmem = (double *)malloc (sizeof (double) * INT_SIZE) ; 
if (i_wmem == 0) 

printf ( "\nCouldn ' t allocate i_wmem memory !") ; 
for(k =0; k < INT_SIZE; k++) 

i_wmem[k] = array[k]; 
for(k = 0; k < INT_SIZE; k++) 

array [k] = i_wmem[rule_i [2*k+l] ] ; 
free (i_wmem) ; 



sis 



void r_ileava(int *array, int *rule_i) 
{ 

int *i_wmem; 
int k; 



i_wmem = (int *)malloc (sizeof (int) * INT_SIZE); 
if(i_wmem == 0) 

printf ( "\nCouldn 1 t allocate i_wmem memory !") ; 
O for(k =0; k < INT_SIZE; k++) 

ff\ i_wmem[k] = array [k]; 

Y* for(k - 0; k < INT_SIZE; k++) 

array [k] = i_wmem[rule_i [2*k+l] ] ; 
i! free (i_wmem) ; 

} 



void r_deileav (double *array, int *rule_d) 

*r { 

!"! double *d_wmem; 

T" int k; 

d_wmem = {double *)malloc {sizeof (double) * INT_SIZE); 
i f ( d_wmem == 0 ) 

printf {"XnCouldn't allocate d_wmem memory!"); 
for(k =0; k < INT_SIZE; k++) 

d_wmem[ rule_d [2*k+l] ] = array[k]; 
for(k =0; k < INT_SIZE; k++) 

array[k] = d_wmem[k] ; 
free (d_wmem) ; 

} 



void r_deileava (int *array, int *rule_d) 
{ 

int *d_wmem; 
int k; 

d_wmem - {int * )malloc (sizeof {int ) * INT_SIZE); 
if {d_wmem -~ 0) 

printf ("XnCouldn't allocate d_wmem memory !") ; 
for{k =0; k < INT_SIZE; k++) 

d_wmem[rule_d[2*k+l] ] = array [k] ; 
for(k =0; k < INT_SIZE; k++) 
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arraytk] = d_wmem[k]; 
free (d__wmem) ; 

} 

/*****************************************************************************/ 

/* nrgen ( ) returns a random number between 0 and 1 */ 
/* (uniform distribution generator) */ 

double nrgen () 
{ 

long z, k; 

k = si / 53668; 

si = 40014 * (si - k * 53668) - k * 12211; 
if(sl < 0) 

si += 2147483563; 
k = s2 / 52774; 

s2 = 40692 * (s2 - k * 52774) - k * 3791; 
if(s2 < 0) 

s2 +- 2147483399; 
z - si - s2; 
if(z < 1) 

z += 2147483562; 
return ( (double) z / 2147483563); 

} 

/*****************************************************************************/ 
/* nrgenbin() returns a 0 or 1 (uniform distribution) */ 
int nrgenbin { ) 
{ 

return < (nrgen () > 0.5)?1:0); 

} 

/*****************************************************************************/ 
/* gasdev{) returns a normally distributed deviate */ 
/* with zero mean and unit variance */ 

double gasdev() 
{ 

static int iset = 0; 

static double gset; 

double fac, r, vl, v2; 

if (iset == 0) 
{ 

/* pick two uniform numbers in the square extending from */. 
/* -1 to +1 in each direction, see if they are in the */ 
/* unit circle, and if they are not, try again. */ 
do 

{ 

vl = 2.0 * nrgen () - 1.0; 
v2 = 2.0 * nrgen () - 1.0; 
r = vl * vl + v2 * v2; 

} 

while (r >= 1.0 | | r == 0.0) ; 
fac = sqrt(-2.0 * log(r)/r); 

/* now make the Box-Muller transformation to get two normal */ 
/* deviates; return one and save the other for next time. */ 
gset = vl * fac; 

iset = 1; /* set flag */ 

return (v2 * fac); 

} 

else 
{ 

/* we have an extra deviate handy, so unset the flag and */ 
/* return it. */ 
iset = 0; 
return (gset) ; 

} 
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/* errors {) returns the nr. of positions in which two blocks of data are */ 
/* different; it accepts a shift between the addresses */ 

/* inputs: the address of the first block of integers */ 

/* the address of the second block of doubles */ 

/* the size of the block (blocks are equal) */ 

/* output: the number of positions in which the two blocks are dif. */ 

int errors (int *blockl, double *block2, int size, int iter_nr) 
{ • 
. int i; 

int count = 0; 

for{i = 0; i < size; 

if(blockl[i] != ((block2[i] >0.0)?1:0)) 
{ 

count++; 
#if defined BIT_HIST 

if (iter_nr>=THRESHOLD_ITER) 
{ 

*bit_hist_array [iter_nr] - bit_hist_block [iter_nr ] ; 
bit_hist_array [iter_nr] ++; 
*bit_hist_array [iter_nr] = i; 
bit_hist_array [iter_nr] ++; 

} 

p #endif 

#if defined BIT_HIST 
W if ( (count>0) && (iter_nr >= THRESHOLD_ITER) ) 

.£!; bit_hist_block [iter_nr] ++; 

#endif 

return (count); 

Q > 

;i /* print_err{) append to the file the nr. of errors and BER */ 

i= h /* returns: number of bit errors in a block */ 

! =* int print^err (int *datal, double *data2, int iter_no, int block_no, int *err) 

4* { 

\\\ int i, j, nr; 

;!]f int block_err = 0; 

O char fname[] = B I T_H I S T_F I L E_N AME ; 

char sss[] = { ' 0 ■ , • 1 ' , 1 2 \ ' 3 ■ , ' 4 ■ ', ■ 5 ' , • 6 » , ' 7 ' , • 8 1 , ■ 9 • } ; 
FILE *out_file = NULL; 
int *pi; 

if((iter_no == 1) && (block_no == 1)) 
{ 

out_file = f open (ERROR_FILE_NAME, "a"); 
if ( !out_file) 
{ 

printf ("Error2 : the output file could not be opened !\n"); 
exit (1); 

} 

f printf (out_file, "ref_tc.c, RSCl_enc_mem = %d, RSCl_fp = %d, RSCl_bp = %d, 
RSC2_enc_mem = %d, RSC2_fp = %d, RSC2_bp = %d, si = %d, s2 = %d, int_size = %d, Limit soft 
outputs to = %e, Eb/No «= %fdB\n", RSC1_ENC_MEM, RSC1_FP, RSC1_BP, RSC2_ENC_MEM, RSC2_FP, 
RSC2__BP, SEED1, SEED2, INT_SIZE, (double) MAX, (double) EBNO) ; 
f close (out_file) ; 

} 

block_err = errors (datal, data2, INT_SIZE, iter_no) ; 
err[iter_no - 1] += block_err; 

++frame_hist [ (iter_no-l) * (INT_SIZE+1) + block_err] ; 

if((iter_no == NR_ITER) && (block_err ! = 0)) 
++ frame err; 



SW5 
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#if defined BIT_HIST 

if ( (block_err != 0) && (iter__no >= THRESHOLD_ITER) ) 
{ 

fname [strlen ( fname) -1] = sss [iter_no] ; 
out__file = f open {fname, "a"); 
if { !out_file) 
{ 

print f ( "Error : the bit_hist file could not be opened! \n"); 
exit (1); 

} 

for (pi = bit_hist_array [NR_ITER +iter_no] ; pi < bit_hist_array [iter_no] ; pi = pi+2) 

fprintf (out_file, "\n%06d %06d", *pi, *(pi+l)); 
fclose (out_f ile) ; 

bit_hist_array [iter_no] = bit_hist__array [NR_ITER +iter_no] ; 

} 

#endif 

if(((iter_no == NR_ITER) && { ( <block_no % PRINT_BLOCKS) ==0) || {err [NR_ITER - 1] > 
MAX_ERRORS) ) ) || < ( (block_no % PRINT_BLOCKS ) == 0) && {block_err == 0))) 



{ 

out_file = f open ( ERROR_FI LE_NAME , "a"); 
if ( !out_file) 
{ 

printf { "Error3 : the output file could not be opened !\n"); 
O exit (1); 

21 nr - block_no * INT_SIZE; 

^ fprintf (out_file, "\n\nNr. of info bits: %d (%d blocks)", 
.Jja nr, block_no) ; 

ik\ for{j = 0; j < NR_ITER; 

;-. s fprintf (out_f ile, "\nlter: %02d, Errors: %06d, BER = %e M , 

Cl j + 1, err [j] , (double) err [j] /INT_SIZE/block_no) ; 

{|| total_err = err [NR_ITER - 1]; 

I* fprintf (out_f ile, "\nFrame error = %f(%f errors per block) \n", 

(double) frame_err/block_no, 
3! (frame_err == 0?0 . 0 : (double) err [NR_ITER-1 ] /frame_err) ) ; 

fclose (out_f ile) ; 

etc 

4« if((block_no % 100000) == 0) 
111 < 

:~I out_file = fopen (FRAME_HIST_FILE_NAME, "a"); 

^ if { !out_file) 

o { 

it printf ( "Error4 : the .fhist file could not be opened !\n"); 

exit (1); 

} 

nr = block_no * INT_SIZE; 

fprintf (out_f ile, "\n\nNr. of info bits: %d (%d blocks)", 

nr, block_no) ; 
for(j = 0; j <= INT_SIZE; 

fprintf (out_f ile, "\n%03d %03d", 

j, frame_hist[ (NR_ITER-1) * (INT_SIZE+l)+j ]■) ; 
fclose (out_file) ; 

} 

} 

return (block_err) ; 
} 



/* This is a MAP decoder for a cs->nr_states states jat_code. */ 

/* function: decodes a block of received data of length INT_SIZE. */ 

/* It assumes that the encoder state starts from state zero */ 

/* input: code structure, I address, Q address, L_in address */ 

/* output: the extrinsic information in L_out */ 

/* globals: noise */ 
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/* 

* As jat_map but outputs probability and not log (probability) 

* It also can handle very large interleavers 
*/ 

void jat_mapl ( jat_code *cs, double *I, double *Q, double *L_in, double *L_out) 
{ 



double 


sum, sum_0 , sum_l , max; 




int 


i, j, k, st; 




double 


*alpha_old; 




double 


* alpha new; 




double 


*betaO; 




double 


*betal; 




double 


*probI; 




double 


*probQ; 




alpha_old = 


(double *)malloc (sizeof (double) 


* 2 * cs->nr states); 


alpha new = 


(double *)malloc (sizeof (double) 


* 2 * cs->nr_states ) ; 



betaO = (double * )malloc (sizeof (double) * INT_SIZE * cs->nr_states ) ; 
if (beta'O == 0) 
{ 

printf ("Couldn' t allocate betaO memory !\n"); 
exit(l); 

} 

• betal = (double *) malloc {sizeof (double) * INT_SIZE * cs->nr_states ) ; 
□ if (betal 0) 

\ti { 

printf ("Couldn' t allocate betal memory ! \n" ) ; 



exit (1) ; 
} 

probl = (double *)malloc ( sizeof (double) * INT_SIZE) ; 
if (probl == 0) 
{ 

printf ( "Couldn* t allocate probl memory !\n"); 
exit (1) ; 

> 



probQ = (double *) malloc (sizeof (double) * INT_SIZE); 
(E 
{ 



i|a if (probQ == 0) 



printf ( "Couldn 1 t allocate probQ memory! \n"); 
iel exit(l); 

a ) 



/* initialize the alpha_old metrics 
for(st = 0; st < cs->nr_states ; st++) 
for(k =0; k < 2; k++) 

*(alpha_old + k * cs->nr_states + st) - 0.0; 

*(alpha_old + cs->P0state [0] ) = 1.0; 

*(alpha_old + cs->nr_states + cs->Plstate { 0] ) = 1.0; 

/* initialize beta's 

for(st = 0; st < cs->nr_states; st++) 
{ 

betaO [ (INT_SIZE - 1) * cs->nr_states + st] = 1.0; 
betal [ (INT_SIZE - 1) * cs->nr_states + st] - 1.0; 

} 

/* compute all beta's 
ford = INT_SIZE - 2; i >= 0; i--) 
{ 

probl [i + 1] - exp{I[i + 1] ) * L_in[i + 1]; 
probQ ti + 1] = exp(Q[i + 1]); 
for(st = 0; st < cs->nr_states; st++) 
{ 

/* compute betaOli] [st] : 



80 



COMPUTER PROGRAM LISTING APPENDIX 



betaO[i * cs->nr_states + st] = betaO[(i + 1) * cs->nr_states + cs- 

>NOstate[st] ] * 

( (cs->CodedO[cs->NOstate[st] ] == 0}?l:probQ[i + 1]) + 
betal[(i + 1) * cs->nr_states + cs->N0state [st]] *probI [i +1]* 
( (cs->Codedl [cs->N0state [st] ] == 0)?l:probQ[i + 1] ) ; 
betal[i * cs->nr states + st] = betaO[(i + 1) * cs->nr states + cs- 



>Nlstate[st] ] * 



} 



( <cs->CodedO[cs->Nlstate[st] ] == 0)?l:probQ[i + 1])+ 

betal[(i + 1) * cs->nr_states + cs->Nlstate [st] ] *probI [i + 1]* 

( (cs->Codedl[cs->Nlstate[st] ] == 0)?l:probQ[i + 1]); 



max = betaO[i * cs->nr_states] ; 
for(st = 1; st < cs->nr_states; st++) 
if(betaO[i * cs->nr_states + st] > max) 
max = betaO[i * cs->nr_states + st] ; 
for(st = 0; st < cs->nr__states; st++) 
if(betal[i * cs->nr_states + st] > max) 
max = betal[i * cs->nr_states + st]; 
for(st = 0; st < cs->nr_states; st++) 
i 

beta0[i * cs->nr_states + st] = beta0[i * cs->nr_states + st] / max; 
betal[i * cs->nr_states + st] = betal[i * cs->nr_states + st] / max; 

■ } 

} 

/* now we have all beta's; we can compute alpha for all states for each */ 
P| /* data bit and using beta's we compute lambda */ 

l?l probl[0] = exp(I[0]) * L_in[0]; 

probQ[0] = exp(Q[0] ) ; 
for(k = 0; k < INT_SIZE; k++) 

nil ' { 

for(st = 0; st < cs->nr_states; st++) 
«i { 

CI sum = *(alpha_old + cs->P0state [st] ) + * {alpha_old + cs->nr_states + cs- 

>Plstate [st] ) ; 

]^ ? *(alpha_new + st) = sum * ( (cs->CodedO [st] == 0) ?1 :probQ[k] ) ; 

S*' *{alpha_new + cs->nr_states + st) = sum * probI[k] * ( (cs->Codedl [st] 

iS 0) ?l:probQ[k] ) ; 

I BBS. } 

.|C~ /* find the max value and renormalize alpha's: */ 

e's max = *alpha_new; 

]** for(st = 0; st < cs->nr_states; st++) 

□ for(j = 0; j < 2; 

p| if (* (alpha_new + cs->nr_states * j + st) > max) 

max = * (alpha_new + cs->nr__states * j + st); 
i for(st = 0; st < cs->nr_states; st++) 

for(j = 0; j < 2; j++) 

*(alpha_new + cs->nr_states * j + st) = * (alpha_new + cs->nr_states * j + st)/ 

max ; 

/* find sum_0 and sum_l over all states for L_out : */ 
sum_0 = 0.0; 
sum_l = 0.0; 

for(st = 0; st < cs->nr_states; st++) 
{ 

sum_0 += *(alpha_new + st) * beta0[k * cs->nr_states + st] ; 

sum_l += *(alpha_new + cs->nr_states + st) * betal[k * cs->nr_states + st] ; 

} 

/* output the extrinsic information: */ 
L_out[k] = (sum_l / sum_0) / exp(I[k]) / L_in[k]; 
if (L_out[k] > MAX) 

L_out[k] = MAX; 
if(L_out[k] < 1/MAX) 

L_out[k] = 1/MAX; ■ 

for(st = 0; st < cs->nr_states; st++) 
for(j = 0; j < 2; update alphas */ 

*(alpha_old + cs->nr_states * j + st) =* (alpha_new + cs->nr_states * j + st); 
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} 

free (betaO) ; 
free (betal) ; 
free (probl ) ; 
free (probQ) ; 
free (alpha_old) ; 
free (alpha_new) ; 
} 



double find_tx_I (int k) 

{ 

double tx_I; 

switch (k) 
< 

case 0: 

tx_I = 0.5; 

break; 
case 1: 

tx_I = -3.5; 

break; 
case 2: 

tx_I = 0.5; 

break; 
case 3: 

tx_I = -3.5; 

break; 
case 4: 

tx_I = 2.5; 

break; 
case 5: 

tx_I = -1.5; 

break; 
case 6: 

tx_I = 2.5; 

break; 
case 7: 

tx_I = -1.5; 

break; 
case 8: 

tx_I = 2.5; 

break; 
case 9: 

tx_I = -1.5; 

break; 
case 10: 

tx_I = 2.5; 

break; 
case 11: 

tx_I - -1.5; 

break; 
case 12: 

tx_I = 0.5; 

break; 
case 13: 

tx_I = -3.5; 

break; 
case 14: 

tx_I = 0.5; 

break; 
case 15: 

tx_I = -3.5; 

break; 
case 16: 

tx_I = 1.5; 

break; 
case 17: 

tx_I = -2.5; 

break; 
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case 18 
tx_I 
break 

case 19 
tx_I ; 
break 

case 20 
tx_I ■■ 
break 

case 21 
tx_I = 
break 

case 22 
tx_I 
break 

case 23 
tx_I = 
break 

case 24 
tx_I ' 
break 

case 25 
tx_I = 
break 

case 26 
tx_I = 
break 

case 27 
tx_I ■■ 
break 

case 28 
tx_I = 
break 

case 29 
tx_I : 
break 

case 30 
tx_I = 
break 

case 31 
tx_I = 
break 

case 32 
tx_I > 
break 

case 33 
tx_I : 
break 

case 34 
tx_I ' 
break 

case 35 
tx_I = 
break 

case 36 
tx_I = 
break 

case 37 
tx_I = 
break 

case 38 
tx_I : 
break 

case 39 
tx_I = 
break 

case 40 
tx_I = 
break, 

case 41 
tx I ' 



1.5; 

-2.5; 

3.5; 

-0.5; 

3.5; 

-0.5; 

3.5; 

-0.5; 

3.5; 

-0.5; 

1.5; 

-2.5; 

1.5; 

-2.5; 

1.5; 

-2.5; 

1.5; 

-2.5; 

3.5; 

-0.5; 

3.5; 

-0.5; 

3.5; 

-0.5; 
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break; 
case 42: 

tx__I = 3.5; 

break; 
case 43: 

tx_I = -0.5; 

break; 
case 44: 

tx_I = 1.5; 

break; 
case 45: 

tx_I = -2.5; 

break; 
case 46: 

tx_I = 1.5; 

break; 
case 47: 

tx_I = -2.5; 

break; 
case 48: 

tx_I = 0.5; 

break; 
case 49: 

tx_I = -3.5; 

break; 
case 50: 

tx_I = 0.5; 

break; 
case 51: 

tx_I = -3.5; 

break; 
case 52: 

tx_I = 2.5; 

break; 
case 53: 

tx_I = -1.5; 

break; 
case 54: 

tx_I = 2.5; 

break; 
case 55: 

tx_I = -1.5; 

break; 
case 56: 

tx_I = 2.5; 

break; 
case 57: 

tx_I = -1.5; 

break; 
case 58: 

tx_I = 2.5; 

break; 
case 59: 

tx_I = -1.5; 

break; 
case 60: 

tx_I = 0.5; 

break; 
case 61: 

tx_I = -3.5; 

break; 
case 62: 

tx_I = 0.5; 

break; 
case 63: 

tx_I = -3.5; 

break; 

} 

return (tx_I) ; 
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double f ind_tx_Q(int k) 
{ 

double tx_Q; 

switch (k) 
< 

case 0: 

tx_Q = 2.5; 

break; 
case 1 : 

tx_Q = 2.5; 

break; 
case 2 : 

tx_Q = -1.5; 

break; 
case 3 : 

tx_Q = -1.5; 

break; 
case 4 : 

tx_Q = 0.5; 

break; 
case 5: 

tx_Q = 0.5; 

break; 
case 6: 

tx_Q = -3.5; 

break; 

pf case 7 : 

1% tx_Q = -3.5; 

■ff break; 

IJ} case 8 : 

Jl tx - Q = 2 * 5; 

2j break; 
\P- case 9: 

O tx _Q = 2 -5; 

'iil break; 

case 10: 

!** tx_Q = -1.5; 

break; 

™. case 11: 

P tx_Q = -1.5; 

,|: break; 

E : _5 case 12: 

te* tx_Q = 0.5; 

CI break; 

i=»% case 13: 

\~- tx_Q = 0.5; 

|~= break; 

case 14: 

tx_Q - -3.5; 
break; 
case 15: 

tx_Q = -3.5; 
break; 
case 16: 

tx_Q = 3.5; 
break; 
case 17: 
. tx_Q = 3.5; 

break; 
case 18: 

tx_Q - -0.5; 
break; 
case 19: 

tx_Q = -0.5; 
break; 
case 20: 

tx_Q = 1.5; 
break; 
case 21: 

tx Q = 1.5; 
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break; 
case 22: 

tx_Q = -2.5; 

break; 
case 23: 

tx_Q « -2.5; 

break; 
case 24: 

tx_Q = 3.5; 

break; 
case 25: 

tx_Q = 3.5; 

break; 
case 26: 

tx_Q = -0.5; 

break; 
case 27: 

tx_Q = -0.5; 

break; 
case 28: 

tx_Q = 1.5; 

break; 
case 29: 

tx_Q = 1.5; 

break; 
case 30: 

tx_Q = -2.5; 

break; 
case 31: 

tx_Q - -2.5; 

break; 
case 32 : 

tx_Q = 2.5; 

break; 
case 33: 

tx_Q = 2.5; 

break; 
case 34 : 

tx_Q = -1.5; 

break; 
case 35: 

tx_Q = -1.5; 

break; 
case 36: 

tx_Q - 0.5; 

break; 
case 37: 

tx_Q = 0.5; 

break; 
case 38: 

tx_Q = -3.5; 

break; 
case 39: 

tx_Q = -3.5; 

break; 
case 40: 

tx_Q = 2.5; 

break; 
case 41: 

tx_Q = 2.5; 

break; 
case 42: 

tx_Q = -1.5; 

break; 
case 43: 

tx_Q - -1.5; 

break; 
case 44: 

tx_Q = 0.5; 

break; 
case 45: 
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tx_Q = 


0.5; 




break; 






case 46: 






tx_Q = 


-3.5; 




break; 






case 47: 






tx_Q = 


-3.5; 




break; 






case 48: 






tx_Q = 


3.5; 




break; 






case 49: 






tx_Q - 


3.5; 




break; 






case 50: 






tx_Q = 


-0.5; 




break; 






case 51: 






tx_Q = 


-0.5; 




break; 






case 52 : 






tx_Q = 


1.5; 




break; 












tx Q = 


1.5; 




break; 






case 54: 






tx_Q = 


-2.5; 




break; 






case 55: 






tx Q - 


-2.5; 




break; 






case 56: 






tx_Q = 


3.5; 




break; 






case 57: 




Ij = 


tx_Q = 


3.5; 




break; 
case 58: 




t! 


tx_Q .= 


-0.5; 




break; 






case 59: 






tx_Q = 


-0.5; 




break; 






case 60: 






tx_Q = 


1.5; 


break; 






case 61: 






tx_Q = 


1.5; 




break; 






case 62: 






tx_Q = 


-2.5; 




break; 






case 63: 






tx_Q = 


-2.5; 




break; 






} 






return (tx_Q) ; 



} 



/* This is a MAP decoder for a cs->nr_states states jat__code. */ 
/* function: decodes a block of received data of length INT_SIZE/2. */ 

/* It assumes that the encoder state starts from state zero */ 

/* input: code structure, I address, Q address, L_in address */ 

/* output: the extrinsic information in L_out */ 

/* globals: noise */ 
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* As jat_map but outputs probability and not log (probability) 

* It also can handle very large interleavers 
V 

void jat_map2 ( jat_code *cs, double *i, double *Q, double *L_in, double *L_out) 
{ 



double 


sum, sum_0, sum_l, max; 






int 


i, j, k, st; 






double 


*alpha_old; 






double 


*alpha new; 






double 


*betaO; 






double 


*betal; 






double 


*probI; 






double 


*probQ; 






alpha_old = 


(double *) malloc (sizeof (double) 


* 2 


* cs->nr_states) 


alpha_new = 


(double *) malloc {sizeof (double) 


* 2 


* cs->nr_states) 



betaO = (double *) malloc (sizeof (double) * INT_SIZE/2 * cs->nr_states) ; 
if(betaO == 0) 
{ 

printf ( "Couldn ' t allocate betaO memory! \n"); 
exit (1) ; 

} 

betal = (double *) malloc (sizeof (double) * INT_SIZE/2 * cs->nr_states) ; 
if(betal =« 0) 

H { 

:£| printf { "Couldn' t allocate betal memory !\n"); 

et* exit(l); 

l t > 

i|| probl = (double * ) malloc (sizeof (double) * INT_SIZE/2); 

iL if (probl == 0) 

y < 

01 printf { "Couldn' t allocate probl memory ! \n" ); 

f: exit(l); 

p| probQ = (double *) malloc (sizeof (double ) * INT_SIZE/2); 
if (probQ == 0) 

[¥* { 

fij printf ("Couldn* t allocate probQ memory ! \n" ) ; 

i»i exit(l); 

3 

/* initialize the alpha_old metrics 
for(st = 0; st < cs->nr_states; st++) 
for(k =0; k < 2; k++) 

*(alpha_old + k * cs->nr_states + st) = 0.0; 

*(alpha_old + cs->P0state [0] ) = 1.0; 

*(alpha_old + cs->nr_states + cs->Plstate [0] ) =1.0; 

/* initialize beta's 

forfst = 0; st < cs->nr_states; st++) 
{ 

beta0[ (INT_SIZE/2 - 1) * cs->nr_states + st] = 1.0; 
betal [ <INT_SIZE/2 - 1) * cs->nr_states + st] = 1.0; 

) 

/* compute all beta's 
for(i = INT_SIZE/2 - 2; i >= 0; i — ) 
{ 

probl [i + 1] = exp(l[i + 1] ) * L_in[i + 1J; 
probQ [i + 1] = exp(Q(i + 1]); 
for(st = 0; st < cs->nr_states ; st++) 
{ 

/* compute beta0[i] [st] : 
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betaO[i * cs->nr_states + st] = betaO[(i + 1) * cs->nr_states + cs 

>N0state [st] ] * 

( (cs->Coded0[cs->N0state[st] ] == 0)?l:probQ[i + 1])+ 
betal[(i + 1) * cs->nr_states + cs->N0state [st] ] *probI [i +1]* 
( (cs->Codedl [cs->N0state[st] ] == 0)?l:probQ[i + 1]); 
betal[i * cs->nr_states + st] = betaO[(i + 1) * cs->nr_states + cs 

>Nlstate [st] ] * 

( (cs->CodedO[cs->Nlstate[st] ] == 0)?l:probQ[i +1])+ 

betal[(i + 1) * cs->nr_states + cs->Nlstate [st] ] *probI [i +1]* 

( (cs->Codedl [cs->Nlstate [ st] ] == 0)?l:probQ[i + 1]); 



max = betaO[i * cs->nr_states] ; 
for(st = 1; st < cs->nr_states; st++) 
if (betaO[i * cs->nr_states + st] > max) 
max = betaO[i * cs->nr_states + st] ; 
for(st = 0; st < cs->nr_states; st++) 
if (betal[i * cs->nr_states + st] > max) 
max = betal[i * cs->nr_states + st] ; 
for(st - 0; st < cs->nr_states; st++) 
{ 

beta0[i * cs->nr_states + st] = beta0[i * cs->nr_states + st] / max; 
betal[i * cs->nr_states + st] = betal[i * cs->nr_states + st] / max; 

} 

} 

■ /* now we have all beta's; we can compute alpha for all states for each */ 
Lj /* data bit and using beta's we compute lambda */ 

if! probl[0] = exp(I[0]) * L_in[0]; 

.■SI probQ[0] = exp(Q[0] ) ; 

te* for{k = 0; k < INT SIZE/2; k++) 

41 < 

j*i for(st = 0; st < cs->nr_states; st++) 

{ 

*a$ sum = *(alpha_old + cs->P0state [st ] ) + * (alpha_old + cs->nr_states + cs 

>Plstate[st] ) ; 

* (alpha_new + st) = sum * ( {cs->CodedO [ st] 0 ) ?1 :probQ [k] ) ; 
i~ a * (alpha_new + cs->nr_states + st) = sum * probI[k] * ( (cs->Codedl [st ] 

h 0)?l:probQ[k]); 
m ) 

f§!3 /* find the max value and renormalize alpha's: */ 

jjj max = *alpha_new; 

iHl for(st = 0; st < cs->nr_states; st++) 

*=al for(j = 0; j < 2; j++) 

O if {* (alpha_new + cs->nr_states * j + st) > max) 

r[ max = *(alpha_new + cs->nr_states * j + st) ; 

for(st = 0; st < cs->nr_states; st++) 
for(j = 0; j < 2; 

*(alpha_new + cs->nr_states * j + st) = *(alpha_new + cs->nr_states * j + st) 



£ ; 1 
- 

S. 



max; 



/* find sum_0 and sum_l over all states for L_out : */ 
sum_0 = 0.0; 
sum_l = 0.0; 

for(st = 0; st < cs->nr_states; st++) 
{ 

sum_0 += *{alpha_new + st) * beta0[k * cs->nr_states + st] ; 

sum_l += *{alpha_new + cs->nr_states + st) * betal[k * cs->nr_states + st]; 

} 

/* output the extrinsic information: */ 
L_out[k] = (sum_l / sum_0) / exp(I[k]) / L_in[k]; 
if (L_out[k] > MAX) 

L_out[k) = MAX; 
if(L_out[k] < 1/MAX) 

L_out[k] = 1/MAX; 

for(st = 0; st < cs->nr_states; st++) 
for(j = 0; j < 2; update alphas */ 

*(alpha_old + cs->nr_states * j + st ) =* (alpha_new + cs->nr_states * j + st); 
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} 

free (betaO) ; 
free (betal) ; 
free (probl) ; 
free (probQ) ; 
free (alpha_old) ; 
free (alpha_new) ; 
} 
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interlever . c 



#define MAX_C INDEX 4 6 
#define MAX_RINDEX 47 
#define MAX_ELEMENT 2100 
#include <stdio.h> 
#include <stdlib.h> 

void main (void) 
{ 

int ra, ca; //la sequence row and column indices 
int count; //Counter for each bit in DMT frame 

int element; //Element number used for finding if element within array 
FILE * output; 



output=f open ( "interleaver" , "w" ) ; 
//Initial sequence indices 

ra=MAX_RINDEX-l; 
ca=0; 

//Adjust the initial indices for la if beyond ending element 

element=ra*MAX_CINDEX+ca; 

while (element >=MAX_ELEMENT) { 
ra--; 
ca++; 

if (ra<0) { 

ra=MAX_RINDEX-l; 
ca=ca+ (MAX_RINDEX-1) ; 

} 

ca=ca%MAX_CINDEX; 
element= ra*MAX_CINDEX+ra; 

} 

//Fetch all elements in sequence la 

for (count = 0; count<MAX_ELEMENT; count++) { 
//Fetch array[ra] [ca] 
element=ra*MAX_CINDEX+ca ; 
fprintf (output, "%d %d\n" , count , element) ; 
//Update indices for next access 

do { 

ra — ; 
ca++; 

if (ra<0) { 

ra=MAX_RINDEX-l; 
ca^ca+(MAX_RINDEX-l) ; 

} 

ca=ca%MAX_CINDEX; 

element = ra * MAX_CINDEX+ca; 
} while (element >= MAX_ELEMENT) ; 

} 

} 
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S-type interleaver generatior 



program int (input, output ) ; 

{This program generates mod-k S-random and symmetric mod-k S-random interleavers . 

const Nmax = 65536; {maximum interleaver size} 

var G, H, I, J, K, L, M, N, S, count , temp,prt, i_, j_, k_, im, jm: longint; 
inta, hat, deint : array [0 . .Nmax] of longint; 
pass, good: boolean; 

si, s2 : longint; {seeds for function uniform} 
into, deinto: text; 
sym: char; 

function max (x, y: longint) : longint; 
{Finds the maximum of x and y} 
begin{max} 
if x > y 

then max := x 

else max := y; 
end; {max} 

function min (x, y: longint) : longint; 
{Finds the maximum of x and y} 
begin {min} 
if x < y 

then min := x 

else min :.= y; 
end; {min} 

function uniform(var si, s2 :longint) :double; 
{Generates a random number from 0.0 < x < 1.0} 



const mO 




21474! 


33562 


ml 




21474! 


33563 


m2 




21474! 


33399 


al 




40014 




a2 




40692 




ql 




53668 




q2 




52774 




rl 




12211 




r2 




3791 





var k: longint; 
begin {uniform} 

k := si div ql; 

si := al*(sl-k*ql) - k*rl; 

if si < 0 then si := sl+ml; 

k := s2 div q2; 

s2 := a2*(s2-k*q2) - k*r2; 

if s2 < 0 then s2 := s2+m2; 

k sl-s2; 

if k < 1 then k k+mO; 
uniform := k/ml; 
end; {uniform} 

procedure srandom; 

{Generates mod-k S-random interleaver} 
label 98; 

procedure reject; 
{reject random number} 
begin{ reject } 

count := count-1; 
if count = 0 

then begin {bad int} 

good := false; 
goto 98; 
end; {bad int} 
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pass := false; 
for M := K to count-1 do 

hat[M] hat [M+l] ; 
hat [count] := J; 
end; { reject} 

begin {S-random} 
repeat 

writeln( 'seedl = 1 ,sl:l,', seed2 = * ,s2:l); 
good, := true; 
for I := 0 ' to N-l do 

hat[I] := I; 
for I := 0 to N-l do 
begin{make int} 
count := N-I; 
i_ : = I mod k_; 
im := min (i_, k_-i_) ; 
repeat 

pass := true; 

K := trunc (count*uniform(sl, s2) ) ; 
if K = count then K := K-l; 
J := hat [K] ; 
if k_ > 1 then 
begin{mod k test} 
j_ := J mod k_; 
jm := min ( j_, k_-j_) ; 
if im <> jm then reject; 
end; {mod k test} 
if pass = true then 
begin {S-random test} 

for L := max(0,I-S) to 1-1 do 

if (abs { J-inta [L] ) <= S) and (pass = true) then 
end{S-random test} 
until pass = true; 
for M := K to N-I-2 do 

hat [M] := hat [M+l] ; 
inta[I] := J; 
end; {make int} 
98: 

until good = true; 
end { S-random} ; 

procedure trandom; 

{Generates symmetric mod-k S-random interleaver} 
label 99; 

procedure rejects; 
{reject random number} 
begin{reject S} 
count := count-1; 
if count = 0 then 
begin {bad int} 
good := false; 
goto 99; 
end; {.bad int} 
pass := false; 
intafl] := -1; 
inta[J] := -1; 
for M := K to count-1 do 

hat [M] := hat [M+l] ; 
hat [count] := J; 
end; {reject S} 

procedure test; 
{S-random test} 
begin{test} 

if {inta[L] >= 0) and (abs (G-inta [L] ) <= S) then rejects; 
L := L+l; 
end; {test} 

begin {T-random} 
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if) 



m 
m 

D 



,sl:l, \ seed2 = r ,s2:l) , 



do 



0) and (I < N) do I := 1+1; 



repeat 

writeln ( ' seedl = ' 
good := true; 
for I := 0 to N-l 
begin{init } 
hat [I] := I; 
inta[I] := -1; 
end; {init} 
H := N; 
I := 0; 
repeat 

count := H; 
while (intatl] > 
i_ := I mod k_; 
im : - min (i_, k_-i_) ; 
repeat 

pass true; 

K := trunc (count*unif orm (si, s2) ) ; 
if K = count then K := K-l; 
J := hat[K] ; 
if k_ > 1 then 

begin{mod k test} 
j_ := J mod k_; 
jm := min( j_, k_-j_) ; 
if im <> jm then rejects; 
end; {mod k test} 
if pass = true then 
begin{S-random test} 
inta[I] := J; 
inta[J] := I; 
G J; 

L := max (0, I-S) ; 

while (pass ~ true) and (L < I) do test; 
L := 1+1; 

while (pass = true) and (L < min(I+S,N)) do test 
G I; 

L := max (0, J-S) ; 
while (pass = true) and (L 
L := J+l; 

while (pass = true) and (L 
end; {S-random test} 
until pass = true; 



< J) do test; 

< min(J+S,N)) do test; 



H := H-l; 

for M := K to H-l do 
hat[M] := hat [M+l] ; 

if I <> J then 
begin{sym} 
K 0; 

while {hat[K] <> I) 
H := H-l; 



and (K < H) do K := K+l; 



for M := 
hat [M] 
end; { sym} 
until H = 0; 
99: 

until good = true 
end{T-random} ; 



K to H-l do 
:= hat [M+l] ; 



begin {int} 

si := 12345; {initialise seeds for uniform} 
s2 := 67890; 



writeln; 

writeln (' Random Interleaver Generator V1.01');. 

writeln ( 'Copyright (c) 1998 Small World Communications. All rights reserved.*); 
writeln; 

write ('Enter block size N <= ',Nmax:l,': '); 
readln(N) ; 

write {'Enter S parameter (S=l is random): '); 
readln (S) ; 
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i 

write ('Enter mod-k parameter (k=l is normal): '); 
readln(k_) ; 
repeat • 

write ('Do you want a symmetric interleaver? '); 

readln (sym) ; 

pass := (sym = 'y') or (sym = ' Y ' ) or (sym = 'n') or (sym 

if pass = false then 

writeln (' Invalid entry. Try again.*); 
until pass - true; 
writeln; 
case sym of 

'y' , ' Y' : trandom; 

'n ' , ' N ' : srandom; 
end; {case} 

assign (into, 1 int . dat ' ) ; 

rewrite (into) ; 

for I := 0 to N-l do 

writeln (into, inta [I] : 1) ; 
close (into) ; 

for I := 0 to N-l do 

hat[I] := 0; 
for I := 0 to N-l do 

begin{test } 
J := inta[I] ; 
hattJ] := hat [J] + 1; 

end; {test} 
pass := true; 
for I := 0 to N-l do 

if hat[I] < 1 then pass := false; 
if pass = false 

then writeln ('Bad interleaver!'); 

pass := true; 
I := 0; 
repeat 

J := inta[I] ; 

for L := max(0,I-S) to 1-1 do 

if (abs ( J-inta [L] ) <= S) and (pass = true) 
then begin 

pass := false; 

writeln (' Interleaver failed S-test*); 
writeln(I:l, ' * , inta [ I ] : 1, ' \L:1,* *,inta[L]:l 
end; 

I := 1+1; 
until (pass = false) or (I = N) ; 

K := 0; 

for I := 0 to N-l do 

K := max{K,abs(I-inta[I] ) ) ; 
writeln ( 'Drnin = ^Krl); 

writeln (* Interleaver table int. dat succussfully generated 1 ); 
end., {int} 
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